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PLANO DA OBRA 
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TÉCNICAS 








DE RECURSÃO 


Se seu programa possui sub-rotinas 
que são chamadas repetidamente, 

é bem provável que as técnicas de 
recursão possam torná-lo mais rápido 
e eficiente. Veja como utilizá-las. 


A construção de um programa con- 
siste, essencialmente, em achar a melhor 
solução para um determinado problema 
através de uma série de comandos. A 
medida que ganha experiência, O pro- 
gramador aprende que o melhor cami- 
nho para isso é dividir o problema prin- 
cipal em partes menores. Tal método, 
no entanto, pode virar um pesadelo. 
Muitas vezes, ao tentar resolver uma 
etapa do processo, esbarra em outro 
processo e, quando resolve este, surge 
ainda outro e assim por diante. Em cer- 
to momento, o programador pensa em 
desistir, pois imagina estar andando em 
um verdadeiro círculo vicioso. 

Mas um microcomputador não es- 
moreceria tão facilmente: para casos 
desse tipo, em que os problemas pare- 
cem sair uns dos outros, existem tecni- 
cas avançadas de programação, as cha- 
madas técnicas de recursão. 






UMA TÉCNICA MISTERIOSA? 


Geralmente, programadores inician- 





tes consideram a recursão uma ferra- 


menta complexa e até mesmo misterio- 
sa. À grande dificuldade está na com- 
preensão da própria listagem de um pro- 
grama desse tipo; até mesmo os fluxo- 
gramas mais didáticos parecem obscu- 
ros quando representam processos re- 
cursivos. Apesar de tudo, O principio 
básico dessa técnica não é tão com- 
plicado. 

Na matemática, a palavra recursão é 
utilizada para designar a repetição de 
uma determinada operação. Em infor- 
mática, porém, ela adquire um signifi- 
cado especifico. Basicamente, a recur- 
são é o chamamento sucessivo de uma 
sub-rotina ou de um procedimento, após 
serem estabelecidos alguns parâmetros 
iniciais. Depois de acionada, a sub-ro- 
tina — ou procedimento — chama a si 
mesma, repetidamente, atualizando os 


PROCEDIMENTOS RECURSIVOS 
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parâmetros iniciais a cada vez, até que 
uma certa condição, previamente esta- 
belecida, seja alcancada. 





A MÁQUINA INTELIGENTE 


Imaginemos a seguinte situação: um 
motorista se encontra em uma grande ci- 
dade desconhecida e precisa ir do lugar 
A para o lugar B. Embora tenha o ma- 
pa da cidade, acha muito difícil ir dire- 
tamente ao local desejado. Decide en- 
tão dividir o itinerário em vários tre- 
chos, estudando um por vez. Escolhe, 
assim, um lugar C, em uma posição in- 
termediária. Analisa o trajeto entre A 
e Ce se dirige para lá. 

Chegando em C, o motorista avalia 
a possibilidade de ir diretamente até B 





















Caso isso lhe pareça complicado, pro- 
cura uma outra posição intermediária, 
D. O processo se repete até que ele atinja 
seu destino. 

Esse exemplo demonstra o princípio 
básico da recursão, tal como é aplicada 
em programação: a solução de um pro- 
blema é obtida pela sua subdivisão em 
problemas menores ou mais fáceis. 

Assim que o programa alcança um 
novo nível de recursão, torna-se neces- 
sário armazenar as informações que fo- 
ram conseguidas no nível anterior, pa- 
ra recuperá-las no passo seguinte. Ao 
início de cada nível, um novo conjunto 
de parâmetros é montado e, por meio 
de um teste, verifica-se se tal etapa che- 
gou ao fim. Sem esse teste, O processo 
nunca terminaria. 

Para observar o funcionamento des- 


sa técnica, execute o próximo programa. 
Ele imprime todos os valores inteiros 
positivos de N até 1. 


20 PRINT INVERSE I;TAB 1;” 1 
NTEIROS POSITIVOS DE N ATE 1º 
30 INPUT "DIGITE O INTEIRO A 
PARTIR DO QUAL VOCE QUER C 
ONTAR REGREDIN- DO ATE 1 (0 P 
ARA SAIR) ";N: LET N=INT N: 
IF N<il THEN STOP 

40 GOSUB BO 

50 GOTO 30 

BO IF N=0 THEN RETURN 

90 PRINT ;N;" "; 

GOSUB 80 


100 LET N=N-1: 

110 RETURN 

10 CLS 

20 PRINT "INTEIROS POSITIVOS DE 
NA 1º 


30 PRINT: PRINT: INPUT"DIGITE O V 
ALOR INTEIRO A PARTIR DO QUAL V 
OCE QUER REGREDIR ATE 1(0 OU JN 
EGATIVO PARA TERMINAR) ";N:N=IN 
T(N):IF N<1l THEN END 

40 GOSUB 80 

50 GOTO 30 

80 IF N=0 THEN RETURN 

90 PRINT N;",”; 

100 N=N-1:GOSUB BO 

10 RETURN 


alii 


10 HOME 
20 PRINT TAB( 7)" INTEIROS POS 


48.48 
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ITIVOS DE 1 AN” 

30 PRINT : PRINT : INPUT "DIGI 
TE UM VALOR INTEIRO PARA A CONT 
AGEM REGRESSIVA (1-23 E O OU ME 
NOS PARA SAIR) ";N:N = INT (N) 
: IE N< 1 THEN END 

40 GOSUB BO 

50 GOTO 30 

BO IF N= O THEN RETURN 

90 PRINT N;”,”; 

100 N = N - 1: GOSUB 80 

110 RETURN 


io 


10 CLS 

20 PRINT TAB(5) 
IVOS DE 1 A N” 
30 PRINT: PRINT: INPUTCDIGITE O N 
ÚUMERO PARA A CONTAGEM REGRES-SI 
VA (O OU MENOS PARA SAIR)":;N:N= 
INT(N): IF N<l THEN END 

40 GOSUB BO 

50 GOTO 30 

BO IF N=0 THEN RETURN 

90 PRINT N;",”"; 
100 N=N-1:GOSUB BO 
110 RETURN 


"INTEIROS POSIT 


O programa permite que você intro- 
duza um valor inteiro e, a partir dele, 
faz uma contagem regressiva até 1. 
Qualquer valor menor que 1 interrom- 
pe o programa. No Apple e no TK-2000, 
valores maiores que 23 não funcionarão, 
pois esses micros podem memorizar ape- 
nas 23 desvios para uma sub-rotina, 

A linha 40 chama a sub-rotina recur- 
siva. A primeira linha desta verifica se 
a tarefa foi completamente executada. 
Esse teste é essencial para o término de 
todo o processo. 

No primeiro nivel da recursão, a va- 
riável N possui o valor introduzido por 
você. Ele é impresso pela linha 90. O se- 
gundo nível é inicializado pela linha 100, 
que reduz o valor de N em uma unida- 
de e chama a sub-rotina novamente, 
com o valor de N já alterado. O progra- 
ma alterna-se, assim, repetidamente, en- 
tre as linhas 80 e 100, 

Quando N alcança o valor O (na li- 
nha 100), o programa é desviado, como 
de costume, para a linha 80, onde en- 
contra o comando RETURN, que o faz 
retornar da sub-rotina chamada na linha 
100. A próxima instrução, na linha 110, 
também é um comando RETURN, que, 























desta vez, faz o programa retornar da 


sub-rotina chamada na linha 40. A linha 
50 executa o programa novamente. 
Note que quando o programa termi- 
na, a variável N contém o valor 0, atri- 
buido na linha 100. Mas a linha 90 
nunca imprime esse valor. Para colo- 
car o último valor impresso na variá- 
vel N, você poderia acrescentar a linha 
105 com o comando N=N+1 (LET 
N=N+1, para o Spectrum). Desse modo, 
N conteria sempre o último valor impresso. 


PROCEDIMENTOS RECURSIVOS 





Algumas outras linguagens, como o 
PASCAL, incluem o que se chama de 
procedimento (procedure). Trata-se de 
um conjunto de linhas definidas em uma 
certa parte do programa — como uma 
sub-rotina — que recebe um nome. Di- 
ferentemente das sub-rotinas, um pro- 
cedimento é chamado através desse no- 
me. Quando se define um procedimen- 
to, Indicam-se também as variáveis que, 
após seu término, retornarão ao estado 
inicial, Este é um bom expediente na 
construção de processos recursivos. 


Os tipos de BASIC com que traba- 
lhamos não permitem que uma variável 
assuma um valor e, ao sair da sub-ro- 
tina, retorne ao valor inicial sem a in- 
terferência de um comando. Assim, so- 
mos obrigados a restabelecer seus valo- 
res iniciais antes de iniciar outra sub- 
rotina. O programa a seguir demonstra 
como contornar esse problema. 


10 DIM N(34): 
20 CLS 


DIM A(34) 








30 PRINT TAB 6; 
ALCULO DE FATORIAL” 


40 INPUT "DIGITE NUMERO PARA 
FATORIAL (1-33, OU O PARA 
SAIR)" ;NU 


50 IF NU>33 OR NU<>2INT (NU) 
OR NU<O THEN RUN 


60 IF NU=0 THEN STOP 
70 LET LE=1: LET N(LE)=NU: 
LET AN=NU 
BO GOSUB 150 
90 PRINT AN;"! = ":A(I): 
PRINT : GOTO 40 
150 IF N(LE)J=0 THEN LET A(LE) 
=1: GOTO 180 
160 LET LE=LE+1L: LET N(LE)J=NIL 
E-1)-1: GOSUB 150 
170 LET LE=LE-1: LET A(LEJ=A(L 
E+1) *N(LE) 
180 RETURN 


10 DIM N(34),A(34) 
20 CLS 





INVERSE 1;"C 


— 


30 PRINT €6,"CALCULO DE FATORIA 

| Md 

40 INPUT"DIGITE O NUMERO PARA F 

ATORIAL (1-33 OU O PARA SAIR) 
"NU 

50 IF NU>33 OR NUS>2INT(NU) OR N 

U<O THEN 20 


60 IF NU=0 THEN END 

70 LE=1:N(LE)=NU:AN=NU 

80 GOSUB 150 

90 PRINT AN"! = ";A(1):PRINT:GO 
TO 40 

150 IF N(LE)J=0 THEN A(LE)=1:GOT 
o 180 


160 LE=LE+1:N(LE)=N(LE-1)-1:GOS 
UB 150 

170 LE=LE-1:A(LE)=A(LE+1) AN(LE) 
180 RETURN 


[e ) 


10 DIM N(34),A(3J4) 

20 HOME 

30 PRINT TAB( 10)"CALCULO DE 
FATORIAIS”" 


40 PRINT INPUT "DIGITE O NUM. 
ERO FATORIAL (1-22 OU O PARASAI 
R) ";NU 


50 IF NU > 22 0RNU< o> INT 
(NU) OR NU < O THEN 20 
60 IF NU = O THEN END 
70 LE = 1:N(LE) = NU:AN = NU 
80 GOSUB 150 








PRINT AN"! = PRINT 
: GOTO 40 

150 IF NILE) 
l: GOTO 180 
160 LE = LE + 1:N(LE) 
1) - 1: GOSUB 150 

170 LE = LE - 1:A(LE) 
1) * N(LE) 

180 RETURN 


ny 


10 DIM N(34),A(34) 
20 CLS 

30 PRINT TAB(9) 

ORIAIS” 

40 PRINT:INPUT” DIGITE O NUMERO 
FATORIAL (1-33 E O OU MENOS PA 

RA SAIR) ";NU 

50 IF NU>33 OR NU<>INT(NU) OR N 

USO THEN 20 

60 IF NU=0 THEN END 

70 LE=1:N(LE)=NU:AN=NU 

80 GOSUB 150 

90 PRINT:PRINT AN;”! = 

RINT:-GOTO 40 

150 IF N(LE)J=0 THEN A(LE)=1:GOT 

O 180 

160 LE=LE+1:N(LE)=N(LE-1)-1:G05 

UB 150 

170 LE=LE-1:A(LE)=A(LE+I) *NILE) 

180 RETURN 


90 "4AÇI): 
= O THEN A(LE) = 
= N(LE - 


= A(LE + 


"CÁLCULO DE FAT 


P3A(I):P 











Execute o programa e introduza um 
valor qualquer. Lembre-se de que valo- 
res maiores que 22 não funcionarão no 
Apple, nem no TK-2000. 

O programa calcula o fatorial do nú- 
mero que você digitou e o imprime na 
tela, O fatorial de um número é o resul- 
tado da multiplicação, entre si, de todos 
os números inteiros menores que ele e 
ele mesmo. Por exemplo, 5 fatorial 
(escreve-se 5!) éiguala | x 2x3x4x 
5, ou seja, 120. O cálculo de fatoriais 
geralmente é necessário em aplicações 
estatisticas. Um método rápido de exe- 
cutá-lo será sempre muito útil. 

Inicialmente, o programa dimensio- 
na algumas variáveis (linha 10), em nú- 
mero suficiente para gerar o fatorial má- 
ximo. A variável N terá como índice o 
nivel da recursão (LE) — N(LE). 

A estrutura principal do programa 
começa na linha 70, onde o nível é ini- 
cializado em 1. Nessa mesma linha, o 
número que você introduziu — supo- 
nhamos que seja 5 — é atribuído a N(1) 
ea AN (variável que irá acumular a res- 
posta). A linha 80 chama então o pri- 
meiro nivel da recursão. A primeira li- 
nha da rotina de recursão (linha 150) ve- 
rifica se a tarefa já chegou ao fim, ou 
seja, se N(LE) = 0. Como N(LE) ainda 
é 5, 0 programa passa para a linha 160, 
que incrementa o nível (para 2), estabe- 
lece como número corrente o 4 e chama 
a sub-rotina recursiva mais uma vez. 
Quando a linha 160 incrementar o va- 
lor do nível para 6 e decrementar o nú- 
mero corrente para 0, a linha 150 detec- 
tará esse último valor atribuindo 1 a 
N(6) e desviando o programa para a li- 
nha 180. Encontrando um RETURN, a 
execução passará para a linha 170, que 
foi a última a chamar a sub-rotina. Es- 
sa linha reduzirá o valor do nível para 
5 e A(5) passará a ter o valor de A(6) 
vezes A(5). Com isso, atribui-se a A(5) 
o valor de 1x 1, ouseja, 1. A linha 180 
devolve, então, o controle para o final 
da linha 150, onde A(4) assume o valor 
de A(5) vezes A(4). Desse modo, será 
atribuido ao nível da recursão o valor 
1 (calculado acima) vezes 2. 

O laço irá se repetir sempre que o 
GOSUB da linha 160 for chamado. 
Quando o laço estiver completo, LE se- 
rá le o último RETURN apontará pa- 
ra a linha 80. A próxima instrução (li- 
nha 90) imprimirá então o resultado; 
120. 


LIMITAÇÕES 


Além do problema com as variáveis, 
que não ocorre com os procedimentos, 
os tipos de BASIC com os quais traba- 


lhamos apresentam uma limitação quan- 
to ao número de vezes que uma sub- 
rotina pode chamar outra. A cada cha- 
mada o sistema precisa guardar ha me- 
mória a posição de onde ela foi feita, o 
que requer a utilização de um pontei- 
ro na pilha interna. É por esse motivo 
que o Apple e o TK-2000 não podem 
calcular fatoriais maiores que 22. Já o 
limite de 33 níveis para outros micros 
deve-se simplesmente à capacidade de 
armazenamento de números. O fatorial 
de 34 excede 1.7 x 10 1 38, o máximo 
que um computador pode manipular. 


PREVISÃO DE ERROS 





Para manter seu programa dentro 
dos limites do micro e evitar uma “'pa- 
ne”, você deve saber como ele se com- 
porta desde o primeiro nível da recur- 
são. Em geral, utiliza-se como teste uma 
informação inicial que culminará em 
uma resposta já esperada. Para facili- 
tar o trabalho, você pode também con- 
siderar a rotina recursiva como um cer- 
to número de sub-rotinas em sequência. 
Note que um desvio condicional para 
fora da sub-rotina é desaconselhável, 
pois o ponteiro que marca a volta do 
GOSUB ficaria desorientado. 

Quando você estiver escrevendo uma 
sub-rotina recursiva, procure começar 
sempre com um teste de saída. A fun- 
ção desse teste é decidir se o problema 
(caracterizado pelos parâmetros iniciais) 
pode ser resolvido diretamente, sem a 
necessidade de subdivisões. 

Antes de começar o programa, pla- 
neje com cuidado o que deseja que a 
sub-rotina faça. E, quando já estiver es- 
crevendo o programa, não se preocupe 
com a segiência exata da execução, le- 
vando em conta apenas dois princípios 
básicos: a condição de saída e a subdi- 
visão em problemas menores. 

Seguindo o método aqui apresenta- 
do, você será capaz de aplicar a recur- 
são aos seus programas sem maiores di- 
ficuldades. Aqui está um exemplo de co- 
mo essa técnica pode melhorá-los,tor- 
nando-os assim mais rápidos e com- 
pactos. 


10 BORDER 1: INK 7: PAPER 1: 
CLS 
20 PRINT TAB 11; INVERSE 1;" 


ORDENACAO * 

30 INPUT "QUANTOS NUMEROS VOC 

E QUER ORDENAR (1-1000) 
"A 

40 IF A<l OR A>1000 THEN 








Goto 10 

50 DIM A(A): DIM R(2+50QR (A)) 
60 LET A(A)=100: PRINT 
INVERSE 1;'"TABELA DESORDENAD 

A :º**: FOR K=1 TO A-l: LET À 
(K) =INT (RND*99) : PRINT A(K); 
" Fis NEXT K 

70 LET L=1: LET LV=): 
=1: GOSUB 1000 

B0 PRINT  INVERSE 1; 
ORDENADA :"*'"': FOR K=1 TO A- 
1: PRINT A(K);" ";: NEXT K 

90 IF INKEY5S<>" " THEN GOTO 


LET R=A 


"" "TABELA 


90 
100 RUN 
1000 IF R>L THEN LET I=L: LET 
J=R+L: LET V=A(L): GOTO 1010 


1005 RETURN 
1010 LET I=I+1: 
GOTO 1010 

1020 LET J=J-l: 
GOTO 1020 

1030 IF J>=I THEN LET T=A(I): 
LET A(I)J=A(J): LET A(J)=T: GOTO 


IF A(I)<V THEN 


IF A(J)>2V THEN. 


1010 

1040 LET T=A(L): LET A(L)=A(J): 
LET A(J)=T 

1050 LET R(LV)=R: LET LV=LVU+1: 
LET R=J-1: GOSUB 1000 

1060 LET LV=LV-1: LET R=R(LV): 
LET L=1: GOSUB 1000 

1070 RETURN 

as 

20 CLS 

20 PRINT 611," ORDENACAO”" 

30 PRINT: INPUT” QUANTOS NUMEROS 
VOCÊ QUER ORDENAR (11-10 

UV) TIA 


40 IF A<l OR A>1000 THEN 10 

50 DIM A(A),R(I+SQR(A)) 

60 A(A)=100:PRINT”" TABELA DESOR 
DENADA :":FOR K=0 TO A-1:A(K)=R 
ND (99) :PRINT A(K);:NEXT:PRINT 
70 L=0:R=A-1:GOSUB 1000 

80 PRINT ” TABELA ORDENADA :":F 
OR K=0 TO A-1:PRINT A(K);:NEXKT 
90 IF INKEYS<>”" ”" THEN 90:ELSE 
RUN 

1000 IF R>L THEN I=L:J=R+1l:V=A( 
L) ELSE RETURN 

1010 I=1+1:IF A(I)<V THEN 1010 
1020 J=J-1:IF A(J)>V THEN 1020 
1030 IF J>=I THEN T=A(I)J:A(I)J=A 
(J):A(J)-T:GOTO 1010 

1040 T=A(L):A(L)=A(J) :A(J)=T 
1050 R(LV)=R:LV=LV+1:R=J-1:GOSU 
B 1000 

1060 LV=LV-1:R=R(LV) :L=I:GOSUB 
1000 

1070 RETURN 


Lab )[có] 


10 HOME 

20 HTAB (11): INVERSE : PRINT 
” ORDENANDO NUMEROS ": NORMAL 
30 PRINT : INPUT ” QUANTOS NUM 
EROS A SEREM ORDENADOS 7? (1-100 
U) TA 





| | 
| | | 
| 
| ] 
|, | 
| | 


40 IFA<IORÃA>lI000 THENJINM 
0 

50 DIM A(A),R(1l + SQR (A)) 

60 A(A) = 100: PRINT : PRINT * 

NUMEROS FORA DE ORDEM :-";: FOR 
K = O TO A - 1:A(K) = INT (99 
* BND (1)) + 1: PRINT A(K);" 


"+: NEXT PRINT 

70 L = 0:LV = 0:R = A - 1: GOSU 
B 1000 

BO PRINT ” NUMEROS NA ORDEM :- 
".: FOR K = O TO À - 1: PRINT A 
(K);” ";: NEXT 

90 GET IS: IF I8 < > ” ” THEN 
90 

100 RUN 

1000 IF R>LTHENI=L:J=aAa 


+ 1:V = AÍ(L): 
1005 RETURN 
:J010 1 = T+as: 


GOTO 1010 


IF A(I) < V THE 


N 1010 

1020 )J=J- 1: IF A(J) > V THE 
N 1020 

1030 IF J> = ITHENTãa=ÃA(I) 
:A(I) = A(J)J:A(J) = T: GOTO 101 
0 

1040 T = A(L):A(L) = A(J):A(J) 
= T 


1050 R(LV) = R:LV = LU + 1:R = 
J - 1: GOSUB 1000 

1060 LV = LV - 1:R = R(LV):L = 
I: GOSUB 1000 

1070 RETURN 


a 


10 CLS 

20 PRINT TAB(10)"ORDENAÇÃO DE N 
UMEROS” 

30 PRINT: INPUT"QUANTOS NUMEROS 
SERÃO ORDENADOS (1-1000)";A 

40 IF A<l OR A>1000 THEN 10 

50 DIMA(A),R(I+SQR(A)) 

60 A(A)=100:PRINT"NUMEROS FORA 
DE ORDEM:-=":FOR K=0 TO A-1:A(K) 
=TNT (RND(-TIME) *99)+1: PRINT A(K 
|): :NEXT: PRINT 

70 L=0:LV=0:R=A-1:GOSUB 1000 

80 PRINT"NUÚMEROS ORDENADOS:":-FO 
AR K=0 TO A-1:PRINT A(K);:NEXT 
90 IF INKEY5S<>" " THEN 90 ELSE 
RUN 

1000 IF R>L THEN I=L:J=B+1:V=A( 
L) :GOTO 1010 

1005 RETURN 

1010 I=I+1:IF A(I)<V THEN 1010 
1020 J=J-1:IF A(J)>V THEN 1020 
1030 IF J>=1I THEN T=A(I)J:A(I)J=A 
(J) :A(J)=T:GOTO 1010 

1040 T=A(L) :A(L)=A(J) :A(J)=T 
1050 B(LV)=R:LV=LV+1:B=J-1:GOSU 
B 1000 

1060 LV=LV-1:R=R(LV) :L=I:GOSUB 
1000 

1070 RETURN 





PROGRAMA DE ORDENAÇÃO 


Compare a listagem do método de or- 
denação tipo bolha do artigo da página 
468 com esta, que utiliza a recursão. 


Nosso programa não contém tantos des- 
vios condicionais do tipo IF...THEN, 
GOTO..., nem tantas variáveis. 
Inicialmente, o programa pede que 
você introduza a quantidade de núme- 


ros randômicos que serão ordenados. A . 


linha 50 dimensiona a matriz A(A), que 
armazena esses números, e a matriz R, 
que irá guardar o valor das variáveis du- 
rante o processo recursivo. A linha 60 
gera e imprime os números randômicos, 
ainda fora de ordem, e a linha 70 cha- 
ma a sub-rotina recursiva para ordená- 
los. A linha 80 é responsável pela im- 
pressão final, 

O método baseia-se na junção de 
duas listas, ambas previamente subme- 
tidas a uma ordenação. A lista princi- 
pal, composta de números randômicos 
desordenados, é dividida-em duas outras 
listas (linhas 1010 e 1020). Observe que, 
na linha 1000, há um teste de saída pa- 
ra determinar o fim da recursão. Cada 
uma das listas sofre então uma ordena- 
ção parcial (linha 1030), sendo poste- 
riormente reunidas. A sub-rotina irá 
chamar a si mesma (linha 1050) até que 
a ordenação esteja completa. 

Apesar dos métodos de ordenação 
em BASIC não serem tão rápidos quan- 
to os que empregam linguagem de má- 
quina, este programa pode ser muito efi- 
ciente em tarefas menos extensas. Por 
exemplo, a ordenação de cem números, 
no Spectrum, leva mais ou menos 40 se- 
gundos; a ordenação tipo bolha nos fa- 
ria esperar mais de uma hora. 


APLICAÇÕES 





A utilidade da recursão vai muito 
além do cálculo de fatoriais e outras 
funções matemáticas. Ela pode ser apli- 
cada na programação de jogos e na 
construção dos mais complexos gráfi- 
cos. Essa técnica também aparece em 
sistemas de inteligência artificial e no 
controle de robôs, além de ser empre- 
gada em processamento de linguagens 
(compiladores e interpretadores). 

Os jogos de estratégia, como o Xa- 
drez ou os wargames, constituem uma 
outra área interessante de aplicação. O 
programa que apresentamos a seguir usa 
a recursão na simulação de um jogo 
clássico, As Torres de Handói. 





10 BORDER 6: PAPER 6: INK O: 
CLS 

20 PRINT TAB 8; INVERSE 1;"L) 
TORRES DE HANOIL!” 


30 INPUT "DIGITE O NUMERO DE 
ANEIS (2-9)0";N: IF N<2 ORN 








>9 THEN GOTO 30 

35 DIM T(3) ' 

36 LET AS="BHOUN”: INK 2: FORM 
21 TO 21-N STEP -1: PRINT AT 
M,.7:AS;AT M,15;AS;AT M,23;A5: 
NEXT M: INK O | 

37 PRINT INK Z;AT 21,7; "MEN" 
“AT 21,15; "MNN";AaT 21,23;"0H0H 


38 FOR M=1 TO N: PRINT INK 7 
- PAPER O;AT 20-T(1),B;N+1-M: 
LET T(l)j=T(l)j+1l: NEXT M 
39 PRINT 41;AT 0,3;" QUALQUER 
TECLA PARA COMECAR” 
40 PAUSE O: PRINT 41;AT 0,35" 
00000000D000000D0D* 
458 LET TT=2: LET TF=1: LET R= 
3 
50 GOSUB 90 
70 PRINT AT 10,5;"NUMERO DE M 
OVIMENTOS=[]";2"N-1 
BO STOP 
90 IF N=0 THEN RETURN 
100 LET N=N-1: LET W=A: 
TT: LET TT=W: GOSUB 90: 
AR: LET R=TT:; LET TT=W 
110 GOSUB 200 
120 LET W=A: LET B=TF: LET TF= 
W: GOSUB 90: LET W=R: LET R=TF 
: LET TF=W 
130 LET N=N+1: RETURN 
200 PRINT AT 20-(T(TF)-1),TF*8 
“"O”; INVERSE 1;AT 20-(T(TT)), 
TTXB8B;N+1: LET T(TE)=T(TE)-1: 
LET T(TT)=T(TT)+1 
210 SOUND .Ol,TT*T(TT)*2 
220 RETURN 


10 CLS:DIM H(3) 

20 PRINT €8,"TORRES DE HANOI” :P 
RINT 

30 PRINT"NUMERO DE ANEIS (2-9) 


LET H= 
LET W= 





T a 

40 AS=INKEYS: IF AS<"2” OR AS>"9 
" THEN 40 

50 N=VAL (AS) :H(0)=N:PRINT 664 
60 FOR K=0 TO B:FOR J=0 TO 2:PR 
INT 6165+K*32+J*9,CHR$(175)+”" * 
+CHRS (175); :NEXT J,K 

70 FOR K=0 TO 2: PRINT 6453+K*9, 
STRINGS (3,175);:NEXT 

B0 FOR K=1 TO N:POKE 1478-32*K, 
49+N-K:NEXT 

90 TT=1:TF=0:R=2 

100 GOSUB 1000 

110 PRINT €65,"NUMERO DE MOVIME 
NTOS =", INT(2"N-1) 

120 PRINT” QUALQUER TECLA PARA 
RECOMECAR” 

130 IF INKEYS="" THEN 130 

140 RUN 

1000 IF N=0 THEN RETURN 

1010 N=N-1:W=R:R=TT:TT=W:GOSUB 
1000:W=R:B=TT:TT=W 

1020 POKE 1478+9*TF-32*H(TF),96 
“H(TE)=H(TE)-1:H(TT)=H(TT)+1:PO 
KE 1478+9*TT-32*H(TT),49+N 

1030 W=R:R=TF:TF=W:GOSUB 1000:W 
«R:A=TF:TF=W 

1040 N=N+1:RETURN 

















Dt 


LO HOME : DIM T(3) 


20 HTAB (14): INVERSE : PRINT 

"TORRE DE HANOI”: NORMAL 

30 PRINT : PRINT : INPUT " 
NUMERO DE ANEIS (2-9): ";N 

40 IF N< 2 0RN>O9 THEN RUN 

50 FOR J = 1 TO 3: INVERSE : V 

TAB (16): HTAB (J * 10): PRINT 

J: NEXT : NORMAL 

60 FOR I =1 TON: HTAB (10): 

VTAB (L6 - I): PRINT N - I: NEX 

TI 

70 T(lL) = 15 - N:T(2) = 15:T(3) 


" 19 

80 TT = 2:TF = 1:R = 3: GOSUB 1 
10 

90 HTAB (14): VTAB (20): 
"MOVIMENTOS=";2 * N-1 


PRINT 


100 END 
110 IF N= O THEN RETUBN 
120 N=N- 1:W = BR:B = TTTT = 


W: GOSUB 110:W = R:R = TT:TT = 
W 

130 GOSUB 160 

140 W= R:BR = TF:TF = W: GOSUB 
110:W = R:B = TF:TEF = W 


150 N = N + 1: RETURN 
160 T(TF) = T(TF) + 1: HTAB (TF 
* 10): VTAB (T(TF)): PRINT * * 


170 HTAB (TT * 10): 
)): PRINT N:T(TT) 
180 RETURN 


na 


10 KEY OFF:CLS:DIM T(3) 
20 PRINT TAB(13)"TORRE DE HANÓI 
= 


VTAB (T(TT 
TITE o i 


30 PRINT: PRINT: INPUT” NUMERO DE 
ANÉIS (2-9): ";N 

40 IF N<2 OR N>9 THEN RUN 

50 FOR I=1 TO N:LOCATE 10,16-I: 
PRINT N-I:NEXT I 

60 T(1)=15-N:T(2)=15:T(3)=15 

70 TT=2:TF=1:8R=3:GOSUB 100 

BO LOCATE 14,20:PRINT” MOVIMENT 
08=":2ºN-1 

90 END 

100 IF N=0 THEN RETURN 

110 N=N-1:W=R:R=TT:TT=W:GOSUB 1 
00:W=R:R=TT:TT=lW 

120 GOSUB 150 

130 W=R:BR=TF:TF=W:GOSUB 
“B=TF:TF=W 

140 N=N+1: RETURN 

150 T(TE)=T(TE)J+1:LOCATE TFX*10, 
T(TE):PRINT” * 

160 LOCATE TT*1O0,T(TT):PRINT N: 
T(TT)=T(TT)-1 

170 RETURN 


100:W=R 


Quando o jogo começa, vários discos - 


de diâmetros diferentes acham-se empi- 
lhados sobre a primeira de três varetas 





vareta, movendo um por vez e sem dei- 
xar um disco maior sobre um menor. A 
terceira vareta serve como apoio tempo- 
rário durante o processo. 

O computador mostrará uma simu- 
lação animada, pedindo, inicialmente, 
o número de discos que sairão da pri- 
meira vareta. A transferência destes se- 
rá bastante rápida, o que dificulta a vi- 
sualização dos movimentos. Caso quei- 
ra observar melhor o processo, faça as 
modificações que se seguem. Para o 
Spectrum, introduza esta linha: 


215 PAUSE O 


Para o TRS-Color, adicione este co- 
mando ao final da linha 1020: 


: SOUND 50+H(TT)*10,12 


No Apple e no TK-2000, acrescente: 


175 FOR I=1 TO B0OO:NEXT 
Para o MSX, adicione esta linha: 
165 BEEP:FOR 1I=1 TO 800:NEXT 


O programa é semelhante aos ante- 
riores. À rotina recursiva executa cada 


dy ND 
a 





montadas sobre o tabuleiro. O objetivo * “* 


é passar todos os discos para a segunda 


ni pre E A . | 
= a, 4 e aim 


As Torres de Hanói e seus nove discos. 


movimento sucessivamente, até que to- 
dos os discos estejam na segunda vare- 
ta. No fim, o computador também exi- 
be o total de movimentos realizados. 
Apesar de poderosa, a recursão po- 
de ser inconveniente quando há uma 
grande limitação de memória, rouban- 
do mais espaço e mais tempo do que o 
necessário. Porém, se não há tal impe- 
dimento e se em seu programa uma sub- 
rotina é chamada mais de duas vezes, 
procure aperfeiçoá-lo com essa técnica. 













































AVALANCHE: 


PONTOS GANHOS 


Nenhum outro aventureiro conheceu 
tantos infortúnios quanto Willie. Nos- 
so personagem já experimentou até a 
morte e a descida para o inferno. Mere- 
ce, agora, uma recompensa: finalmen- 
te, ele conseguirá alcançar o topo da 
montanha e recuperar mais uma parte 
do lanche perdido, conquistando, assim, 
alguns pontos no placar. 


A pequena rotina inicial executa a 
melodia da recompensa, coloca Willie 


no próximo nível, aumenta a velocida- 
de do jogo e incrementa o placar. 


10 REM org 59788 

20 REM rwd ld de,523 
30 BEM ld h1,8B06 

40 REM call 949 

50 REM ld a, (57344) 
60 REM inc a 

70 REM res 2,a 

BO REM ld (57344),a 
90 REM ld a, (58732) 
100 REM dec” a 

110 REM 1d (587/32),a 
120 REM ld a,? 

130 REM ld b,5 
140 REM call 59900 
150 REM jp 58601 


As três primeiras instruções, encar- 
regadas da música, usam a rotina BEE- 
PER no endereço 949 da ROM. Os pa- 





râmetros da duração e da tonalidade são 
fornecidos pelo método usual, atraves 
dos pares de registros DE e HL. 





NÍVEL DO JOGO 


O nível de dificuldade do jogo é car- 
regado da variável correspondente, em 
57334, para o acumulador. O conteúdo 
do acumulador é em seguida incremen- 
tado. Precisamos, porém, impedir que 
seu valor seja maior do que 3, já que 
existem só quatro níveis de dificuldade. 
Para isso, usamos a instrução res 2, à 
que ajusta com O o bit 2 do acumula- 
dor. Quando o valor deste chega a 4, o 
bit 2 é colocado em 0. O conteúdo do 
acumulador volta, assim, a 0, trazendo 
o jogo para o primeiro nível. 

O resultado dessa operação é arma- 
zenado no endereço 57334, onde será 
utilizado ao se ajustar O Jogo. 


— ANVELOCIDADE 


O valor do atraso do jogo — que fi- 
ca no endereço 58732 — é carregado no 
acumulador, decrementado e armazena- 
do de volta em 58732. Aceleramos, as- 
sim, O jogo, uma vez que o tempo gas- 
to pelo processador no laço de atraso da 
rotina principal diminui. 

O atraso foi originalmente ajustado 


Nem tudo é desastre no caminho 

de Willie. Para que não se desespere 
totalmente, às vezes é recompensado, 
conseguindo chegar ao topo da 
montanha e recuperar seu lanche. 


com 50. Como Willie não chegará à re- 
compensa mais do que cinquenta vezes, 
o jogo se tornará cada vez mais rápido 
— e, portanto, mais difícil. Cada vez 
que você enfrentar os mesmos quatro ní- 
veis, eles estarão mais rápidos. 


CONTAGEM DE PONTOS 





Por ter alcançado o prêmio, Willie re- 
cebe mais 500 pontos. Para isso, chama- 
mos a rotina do escore no endereço 
58900 e fornecemos os parâmetros nos 
registros A e B. 

O valor 2 colocado em A especifica 
o segundo dígito a partir da esquerda — 
o das centenas —, que será incrementa- 
do. O valor 5 em B informa à rotina o 
número de vezes que esse dígito deve ser 
aumentado. Incrementando as centenas 
cinco vezes, acrescentamos 500 pontos 
ao escore. 

Em seguida, o processador volta pa- 
ra a rotina de nova vida — rotulada nlv 
— | em 58601, e coloca nosso persona- 
gem na base da encosta. 


PLACAR 





A pequena rotina apresentada a se- 
guir acerta o placar de Willie quando ele 
alcança uma recompensa ou escala uma 
outra parte da encosta. 


NO = 





= 
/ 














NÍVEL DE DIFICULDADE 
FUNDO MUSICAL 
ACELERAÇÃO DO RITMO 


— DOJOGO 
mu! — WILLIE ALCANÇA 
E E aci eee — Er 
10 REM orq 59900 cialização dada no artigo da página 995, 
| 20 REM scn ld ix,57337 O registro D é carregado com 0 e E, com 
) 30 REM ld d,0 o conteúdo do acumulador. Lembre-se 
; 40 REM ld e,a 


de que o acumulador carrega o número 
de coluna quando o processador entra 
nesta rotina. 

O conteúdo do par DE é adicionado 
ao conteúdo de IX e o resultado perma- 


50 REM add ix,de 

60 REM acr push 1x 

70 REM call sdi 

BO REM pop ix 
90 REM dj5nz scr 

100 REM call 58939 

110 REM ret 

120 REM sdi ld a, (1x+0) 
130 REM inc a 
) 140 REM cp 10 
150 REM 3r nz,sno 
160 REM ld a,0 
170 REM 1d (ix+0),a 
180 REM dec ix 
190 REM j5r sdi 
200 REM sno ld (1x+0),a 
210 REM ret 
| A posição de memória 57337 corres- 
ponde ao início da variável do escore, 
| que é carregada com Q pela rotina de ini- 


a 


pre O PRÊMIO 
CONTAGEM DE PONTOS 
EXIBIÇÃO DO PLACAR 
ALTERAÇÃO DOS DÍGITOS 
DE VOLTA AO SOPÉ 










































E 


nece em IX. Isso faz com que o aponta- 
dor de dados percorra os dígitos arma- 
zenados a partir de 57337, até chegar ao 
especificado pelo conteúdo de A. A po- 
sição é temporariamente armazenada, 
colocando-se o conteúdo de IX na pilha. 
A rotina sdi é chamada. 


ALTERANDO OS DÍGITOS 





“A rotina sdi é a que trata dos dígitos. 
Ela começa carregando o acumulador 
com o digito apontado por IX. O des- 
locamento do O é necessário aqui por 
causa do formato da instrução. 

O dígito é então incrementado e com- 
parado com 10. Se ele for 10, será pre- 
ciso incrementar também no próximo 
dígito. Caso contrário — ou seja, se O 
primeiro dígito ainda não foi incremen- 
tado até 10 —, a instrução jr nz manda 
o processador para o rótulo sno, que 
volta a armazenar o dígito incrementa- 
do na posição de onde veio. 

Se o dígito que você está alterando foi 
incrementado até 10, o salto não ocor- 
re.e o processador continua com a pró- 
xima instrução. O valor O é armazena- 
do no dígito apropriado. Em seguida, 
IX é decrementado, passando a apon- 
tar para o dígito imediatamente à es- 
querda. A instrução jr sdi manda então 
o processador de volta para sdi, inician- 
do novamente a rotina de incremento no 
próximo dígito. 

Se este foi incrementado até 10, o 
processador continua no laço. Mas, ce- 
do ou tarde, um dígito que não chegou 
a 10 será encontrado. O processador irá 
então para sno, armazenando o último 
dígito e retornando para o lugar da ro- 
tina scr de onde sdi foi chamada. 


MAIS PLACAR 





Quando o processador retorna da ro- 


tina, o apontador IX é recuperado da pi- 
lha outra vez. Você pode agora perce- 
ber por que precisamos armazená-lo ali: 
se o dígito foi incrementado até-10, sdi 
terá deslocado o apontador IX para o 
dígito seguinte; caso você tente incre- 
mentá-lo mais uma vez, irá alterar o di- 
gito errado. 

O laço desta parte da rotina é fecha- 
do por uma instrução djnz, que decre- 
menta o conteúdo de B até zerá-lo. Co- 
mo você deve se lembrar, B carrega o 
número de vezes que o digito do escore 
tem que ser incrementado quando o pro- 
cessador entra na rotina, 

O processador continua no laço atua- 
lizando o escore o número de vezes ini- 
cialmente especificado por B. Quando 








Era! 





[=] 





1 








B chega a 0, a rotina de impressão em 
58939 é chamada, imprimindo o novo 
escore na tela. 

Em seguida, o processador retorna. 


as ESG ss ao 


Esta pequena rotina executa a melo- 
dia da recompensa, coloca Willie no 
próximo nível, acelera o jogo e acrescen- 
ta pontos no placar. 


10 ORG 20721 

20 BWD LDA 4255 
30 LDX 4150 

40 JSR SOUND 

50 LDA 18238 

60 INCA 

70 ANDA 43 











BO STA 18238 
90 DEC DLL+1 


100 LDB 45 
110 LDA 43 
120 JSR SCI 
130 LBRA NLV 
140 SCI EXG A,B 
150 SCT LDX 418240 
160 ABX 
170 PSHS A,X 
180 JSR SDI 
190 PULS A,X 
200 DECA 
210 BNE SCT 
220 JSR PRSC 
230 ARTS 
240 SDI LDA,X 
à250 INCA 

[260 CMPA 410 

| 270 BNE SNO 

; 280 CIR SM 

- 290 LEAX -1,X 
300 BRA SDI 
310 SNO STA ,X 
320 ARTS 
330 SOUND PSHS A 
340 LDA SFFO1 
350 ANDA 4247 
360 STA SFFOI1 
370 LDA SFFO3 
380 ANDA 4247 
390 STA SFFO3 
400 LDA S$FF23 
410 ORA 48 
42 STA SFF23 
430 ORCC 4550 
440 PULS A 
450 PSHS X 
460 LDB 4252 
470 SBN STB SFF20 
480 SC LEAX -1,X 
490 BNE SC 
500 LDX,S 
510 DCLR $FF20 
520 SD LEAX -1,X 
530 BNE SD 
540 LDX ,S 
550 DECA 
560  BNE SBN 
570 ANDCC 4SAF 
580 PULS X 
590 ARTS 
600 CLICK LDX 498 
610 LDA 44 
620 JSR SOUND 
630 RTS 
640 DLL EQU S$51ED 
650 NLV EQU S4BF7 


PRSC EQU 54C77 


As três primeiras instruções, encar- 
regadas da música, usam a rotina 
SOUND, chamada pela linha 40. Os pa- 
râmetros da duração e da tonalidade são 
fornecidos pelo método usual, através 
de números carregados em A e X. 





“NÍVEL DE DIFICULDADE 


A é carregado com o conteúdo de 
18238, a posição de armazenamento do 


nível de dificuldade. Esse valor é incre- 
mentado e a operação AND é feita com 
o número 3. Apagamos, assim, OS seis 
bits mais significativos e evitamos que 
o nível do jogo ultrapasse o valor 3, O" 
resultado é armazenado de volta na po- 
sição 18238, 

Em seguida, a variável na posição de 
memória $S1 EE é decrementada e o jo- 
go se torna um pouco mais rápido. 

Para atualizar o escore, carrega-se 5 
em Be 3em A; a rotina SCI, fornecida 
a seguir, é então chamada, B carrega O 
número de vezes que o dígito será incre- 
mentado e A identifica esse dígito. Desta 
vez, portanto, acrescentamos 500 pon- 
tos ao escore. 

Finalmente, o processador volta pa- 
ra a rotina NLV, que irá colocar o pró- 
ximo nível na tela, 





CÁLCULO DO PLACAR 


Para serem utilizados na próxima ro- 
tina, os conteúdos dos registradores A 
e B precisam ser trocados. Isso é feito 
pela instrução EXG. X é então carrega- 
do com 18240, o endereço inicial dos va- 
lores do escore. 

ABX adiciona a X o conteúdo de B 
— que é o número do dígito a ser incre- 
mentado. Em outras palavras, essa ins- 
trução desloca o apontador em X, que 
estava no início dos dados do escore, pa- 
ra a posição do dígito que se pretende 
incrementar. O conteúdo de A (o núme- 
ro de vezes que o dígito será incremen- 
tado) e o de X (a posição de memória 
desse digito) são colocados na pilha de 
máquina. Em seguida, o processador 
salta para a sub-rotina SDI que executa 
o incremento, Os conteúdos de Ae X 
são recuperados da pilha. 

A é decrementado e, se não tiver che- 
gado a 0, a instrução BNE SCT manda 
o processador continuar no laço. A ro- 
tina de incremento do dígito é executa- 
da A vezes, incrementando o dígito 
apropriado a cada volta do laço. 

Com A reduzido a O e o escore acer- 
tado, o processador sai do laço e vai pa- 
ra a rotina PRSC, que imprime o resul- 
tado na tela. Depois disso, o processa- 
dor encontra RTS e retorna para a roti- 
na principal. 


“ALTERANDO OS DÍGITOS 


A é carregado com o conteúdo da po- 
sição de memória apontada por X. Es- 
te corresponde ao número contido no di- 
gito apropriado do escore. 


O número é incrementado e o resul- 
tado é comparado com 10. Se ainda não, | 












for igual a 10, a instrução BNE coloca 
o processador no rótulo SNO, que vol- 
ta a armazenar o dígito que foi incre- 
mentado no endereço apontado por X. 
O processador retorna. 

Se o resultado for igual a 10, o dígi- 
to apontado por X é ajustado com O — 
ou seja, é limpo. X é então decremen- 
tado, fazendo o apontador se mover pa- 
ra o digito imediatamente à esquerda. 

BRA SDI manda o processador de 
novo para o laço de incremento de dígi- 
to. Depois que o próximo dígito é incre- 
mentado, verifica-se se ele ultrapassou 
o valor 9. Encontrando um dígito que 
não exceda o valor máximo, O proces- 
sador o armazena na posição apontada 
por X. Observe que, ao voltar da roti- 
na de escore, O processador recupera O 
valor de X da pilha. 

A rotina SOUND trabalha exatamen- 
te do mesmo modo que a rotina encar- 
regada de executar Greenleaves. Porém, 
toca apenas uma vez e usa a pilha como 
fonte de dados. 

Depois de SOUND, ha uma outra pe- 
quena rotina chamada CLICK. Ela exe- 
cuta a trilha sonora da caminhada de 
Willie, carregando os parâmetros em X 
e A e chamando a rotina SOUND. 

Para testar a rotina, use as teclas M 
e N e este programa em BASIC. 


10 PORE 
20 EXEC 19426 
30 EXEC 19902 
40 coTo 30 


CSPE 


“Esta pequena rotina coloca Willie no 
nível seguinte, aumenta a velocidade do 
jogo e acrescenta os pontos ganhos ao 
placar. 


3000,5/7/ 


10 org 55506 

20 ld a, (-5228) 
30 inc a 

ao res 2,a 

50 ld (-5228),a 
60 ld a, (54133) 
70 dec a 

BO ld (54133),a 
90 ld a,2 


100 ld b,5 
110 call 55532 
120 jp 538BB 





O NÍVEL DE DIFICULDADE 


O nível de dificuldade do jogo é 
transferido da variável equivalente em 
— 5228 para o acumulador. A seguir, O 
conteúdo desse é incrementado. Como 
existem apenas quatro níveis. 


no” 
jogo, o valor dessa variável não deve - 


ultrapassar 3. Para evitar que isso 
ocorra, utilizamos a instrução res 2,4, 
que ajusta com 0 o bit 2 do acumula- 
dor. Assim, quando o valor incremen- 
tado chega a 4, o bit 2 é ajustado com 
0. O conteúdo do acumulador volta, en- 
tão, a O, colocando o jogo novamente 
no primeiro nivel. 

O resultado dessa operação é arma- 
zenado em — 5228, onde o novo valor 
será utilizado no controle do jogo. 


VELOCIDADE | 


O atraso do jogo em 54133 é coloca- 
do no acumulador, decrementado e ar- 
mazenado de volta em 54133. Isso ace- 
lera o jogo, já que o tempo gasto pelo 
processador no laço de atraso da rotina 
principal diminui. 

Como você poderá verificar na últi- 
ma rotina da série Avalanche, esse atra- 
so foi originalmente ajustado com 50. 
Assim, sempre que aumenta o número 
de pontos no placar, o jogo se torna 
mais rápido e difícil. Cada vez que vo- 
cê enfrentar os mesmos quatro níveis, 
a velocidade será maior. 


CONTAGEM DOS PONTOS 





Por ter alcançado o prêmio, Willhe re- 
cebe mais 500 pontos. Para isso, chama- 
mos a rotina de contagem e fornecemos 
os parâmetros nos registros A e B. O va- 
lor 2 colocado em A especifica o segun- 
do dígito a partir da esquerda — o das 
centenas —, que será incrementado. O 
valor 5 em B informa à rotina o núme- 
ro de vezes que esse dígito deve ser au- 
mentado. Incrementando as centenas 
cinco vezes, acrescentamos 500 pontos 
ao escore. Em seguida, o processador 
vai para a rotina principal do jogo, em 
53888, e coloca Willie na base da 
encosta. 


— OPLACAR 


A pequena rotina que se segue acer- 


ta os pontos de Willie quando ele alcan- 
ça uma recompensa ou escala uma par- 
te da encosta. 


130 org 55532 
140 po ld h1,-5219 
150 ld d,0 

160 ld e,a 

170 add hl,de 
180 pd push hl 
190 call sd 

200 pop hl 

210 dinz pd 

220 call 54023 
230 ret 

240 sd ld a, (hl) 
250 inc a 

260 cp 10 

270 jr nz,8sn 
280 ld a,0 

290 ld (hl),a 
300 dec hl 

310 xr sd 

320 sn ld (hlj,a 
330 ret 

340 end 


A posição de memória — 5219 corres- 
ponde ao endereço inicial das variáveis 
que contêm os dígitos do escore, carre- 
gadas com O pela rotina de inicialização 
dada em artigo anterior. O registro D é 
carregado com 0 e o registro E, com o 
conteúdo do acumulador. Lembre-se de 
que o acumulador carrega o número do 
digito quando o processador entra nes- 
ta rotina. 

O conteúdo do par DE é somado em 
HL. A operação faz o apontador de di- 
gitos percorrer as variáveis onde seus va- 
lores estão armazenados, a partir de 
— 5219, até o dígito indicado pelo con- 
teúdo de A. O conteúdo de HL é colo- 
cado na pilha, onde ficará temporaria- 
mente armazenado, e sd é chamada. 





ALTERANDO OS DÍGITOS 


A rotina sd, que trata dos dígitos, co- 
meça carregando o acumulador com o 




















valor do dígito apontado por HL. Este 
é incrementado e comparado com 10. Se 
for igual a 10 — ou seja, se ultrapassou 
o maior valor de um dígito decimal, 9 
— , será preciso incrementar o próximo 
digito. Se o digito analisado ainda não 
ultrapassou 9, a instrução jr nz manda 
o processador para o rótulo sn, que ar- 
mazena seu valor na variável corres- 
pondente. 

Quando o digito que está sendo alte- 
rado chega a 10, o salto não ocorre e o 
processador continua com a próxima 
instrução. O valor O é armazenado nes- 
se digito e o par HL é decrementado, 
passando a apontar para o dígito ime- 
diatamente à esquerda. A instrução jr 
sd manda o processador de volta para 
sd e a rotina de incremento recomeça pa- 
ra o próximo dígito. 

Se este também já ultrapassou 9, o 
processador continua no laço. Mas, ce- 
do ou tarde, um dígito que não chegou 
a 10) será encontrado. O processador irá 
então para sn, armazenando o último di- 
gito e retornando para o lugar da roti- 
na pd de onde sd foi chamada. 


MAIS PLACAR 


Quando o processador retorna da ro 
tina, o apontador HL é recuperado da 
pilha. Você pode agora perceber por que 
precisamos armazenádo ali: se algum di- 


gito foi incrementado até 10, a rotina sd 
terá deslocado o apontador. Caso não 
tivéssemos armazenado o valor inicial 
na pilha, desta vez estaríamos alteran- 
do o dígito errado. 

O laço é fechado por uma instrução 
dijnz, que decrementa o conteúdo de B 
até zerar esse registro. Como você deve 
se lembrar, B carrega o número de ve- 
zes que o dígito do escore tem que ser 
incrementado quando o processador en- 
tra nesta rotina. 

O processador continua no laço pd 
atualizando o escore o número de vezes 
inicialmente especificado por B. Quan- 
do B chega a O, a rotina de impressão 
dos digitos em 54023 é chamada, impri- 
mindo o novo escore na tela. 

Em seguida, o processador retorna. 
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Até aqui, a maioria dos jogos de IN- 
PUT — sejam os de aventura, estraté- 
gia ou videogame — basearam-se no 
confronto computador-usuário. A 
maior dificuldade nesse tipo de disputa 
estava, como vimos, na criação de re- 
gras e situações que simulassem desafio 
ou, no caso dos jogos de estratégia, na 
transformação do computador em um 
adversário inteligente e de bom nível. O 
jogo que apresentamos neste artigo é di- 
ferente: o confronto pode se dar entre 
até seis jogadores. O computador não 
participa como adversário — cabe-lhe 
apenas conferir as regras e manter o pla- 
car. A máquina evita, assim, que alguém 
trapaceie, e, o que é melhor, libera os 
jogadores da contagem do placar, pos- 
sibilitando que se concentrem só nas 
questões estratégicas. 

Este jogo não passa de uma versão 
computadorizada do famoso Yatch, ou 
pôquer com dados. Combinando sorte 
e estratégia, é muito absorvente, mas 
suas regras são simples, parecidas com 
as do pôquer. Cada participante tem di- 
reito a jogar cinco dados de uma só vez 
(no nosso caso, o computador simula os 
dados rolando). Se o jogador não esti- 
ver satisfeito com o resultado obtido, 
poderá lançar os dados mais duas vezes 
(num total de três jogadas). Na segun- 
da e terceira jogadas, é permitido esco- 
lher quais dentre os cinco dados serão 
lançados novamente, para que se con- 
siga a melhor ''mão"* possível. Depois 
do terceiro lançamento, o jogador deve 
indicar o grupo do placar no qual sua 
combinação de dados vai ficar (cada 
grupo poderá ser usado apenas uma 
vez). À partida continua, então, com o 
próximo jogador. 

Os grupos de placar são: 


GRUPO PONTOS 

UM soma dos 1 obtidos 
DOIS soma dos 2 obtidos 
SEIS soma dos 6 obtidos 
FULL HOUSE soma dos cinco dados 
CURTO 15 

LONGO 30 


MISTO soma dos cinco dados 


YATCH 50 


Um CURTO é uma combinação de 
quatro dados em seqgiiência (1,2,3,4 ou 
2,3,4,5) e um LONGO, uma combina- 
ção de cinco dados também em sequên- 
cia (1,2,3,4,5 ou 2,3,4,5,6). Um FULL 
HOUSE compõe-se de uma trinca e um 
par (5,5,5,1,1, por exemplo), enguanto 
um MISTO, como seu próprio nome 
diz, aceita qualquer tipo de combinação 
de dados. O YATCH, finalmente, é O 
grupo formado por cinco dados iguais. 

O resultado obtido numa jogada de- 
ve ser colocado num dos grupos. 
Lembre-se de que só se pode indicar ca- 
da grupo uma vez. Para selecionar o 
grupo e executar a escolha usam-se as 
setas e a barra de espaço. 

Muitas vezes não é possível obter 
uma combinação de dados que satisfa- 
ça um dos grupos vazios (os grupos 
cheios não podem ser utilizados nova- 
mente). Neste caso, a única opção é sa- 
crificar um dos grupos vazios — de pre- 
ferência, um dos que rendem menos 
pontos —, eliminando-o. A melhor es- 
tratégia, portanto, é preencher primei- 
ro Os grupos que rendem mais pontos — 
que são também os mais difíceis — evi- 
tando-se que venham a ser sacrificados. 

O programa está dividido em três 
partes principais: rotina de inicialização, 
laço-mestre e rotinas chamadas pelo 
laço-mestre. 


INICIALIZAÇÃO 





Esta parte do programa configura os 
UDG (gráficos definidos pelo usuário) 
que representarão os dados na tela (me- 
nos nos micros das linhas Apple e 
TK-2000), inicializa as variáveis e arma- 
zena os nomes dos jogadores. 


nt 


10 CLS:XS=CHRS (13) +CHAS (10) :DIM 
DS (6,4) 

20 FORK=1TO6:FORJ=1TO3J:FORL=ITO 
3:READA:D$(K,J) =DS (K,J) +CHRS (1) 
+CHRS (219-145*A) : NEXT:NEXT:NEXT 
30 DATA 0,0,0,0,1,0,0,0,0 


40 DATA 1,0,0,0,0,0,0,0,1 
50 DATA 1,0,0,0,1,0,0,0,1 
60 DATA 1,0,1,0,0,0,1,0,1 
70 DATA 1,0,1,0,1,0,1,0,1 





INPUT apresenta, finalmente, um jogo 
de computador projetado para vários 
participantes. Reúna a família e os 
seus amigos e role os dados nesta 
brincadeira de sorte e de perícia. 


80 DATA 1,0,1,1,0,1,1,0,1 
85 LOCATE7,10:PRINT"Quantos 
adores (1-6)?7"; 

90 AS=INKEYS:IFAS<"1” OR AS>"6” 
THEN90 

100 PRINTAS:NP=VAL (AS) :CLS 

110 FORN=1TONP: PRINT"nome do Jo 
gador” ;N;: INPUTNS(N) :NEXT 

120 CLS:CLS=STRINGS(35," 7) 

130 DIMO(NP,12),P(NP,12),85(NP,1 
0) 


atol 


10 HOME : 
20 CLS = * 


joq 


DIM AS(12) 


30 FORT = 1 TO 6: READ AS:DCS 
(T) = AS: NEXT 

40 FORT= 1 TO lZ 

50 READ AS:AS(T) = AS + LEFTS 
DO a rece E E a ",12 - LEN (AS) 

j: NEXT 

60 VTAB (10): PRINT 'TAB( 10); 

"QUANTOS JOGADORES (1-6)7”; 


70 GET AS: IF AS < "1" OR AS > 
"6" THEN 70 
80 NP = VAL (AS): PRINT NP: DI 


M N$ (NP), SC(NP),O(NP,12),P(NP,1 
2) S(NP,10) 

90 HOME : FOR N = 1 TO NP: PRI 
NT TAB( 1);"NOME DO JOGADOR "; 
N;" =": 

100 INPUT NS(N): NEXT 

1170 DATA <1>,<2>,<3> 

1180 DATA <4>,<5>,<6> 

1190 DATA  UNS,DOIS, TRES, QUAT 
ROS, CINCOS,SEIS,4 IGUAIS 

1200 DATA CASA CHEIA, CURTO,L 
ONGO, MISTO, YATCH 


20 LET QB"... =... *: LET 
28=" ": DIM C(13): 
FOR N=1 TO 13: READ C(N): 
NEXT N: DIM T(5): DIM R(5): 
DIM D(5) 

30 FOR N=USR "A” TO USR "G"+7 


: READ A: POKE N,A: NEXT N 

40 DATA 2,3,4,5,6,7,11,14,17, 
20,23,25,27 

50 DATA 0,0,0,24,24,0,0,0 

60 DATA 0,6,6,0,0,96,96,0 

70 DATA 3,3,0,24,24,0,192,192 
80 DATA 0,102,102,0,0,102,102 
90 DATA 195,195,0,24,24,0,195 
5195 








45 PROGRAMAÇÃO DEJOGOS 45 


” AS REGRAS DO JOGO E * ROLANDO OS DADOS 
E À ESTRATÉGIA E — OPLACAR 
ai GRUPOS DE PLACAR HH — IMPRESSÃO 
E UDG DOS DADOS | DO ESQUELETO 
5 O LAÇO-MESTRE E. RESULTADO FINAL 

100 DATA 102,102,0,102,102,0, 170 CLS:GOSUB350:CLS:NEXTN,I F 

102,102 180 CLS:GOSUB990:NEXTR: END 

110 DATA 0,24,48,96,255,96,48, 980 LOCATEI9-LEN(NS$S(N))/2,Y:PRI 

24 NTNS (N) : RETURN 170 FOR R=1 TO 5: FOR I=1 TO 

120 PRINT AT 10,13;"YATCH”: 12: FOR N=1 TO NP 

INK 1: PRINT AT 12,7;" QUANTOS "é [ç&] 180 BORDER 4: INK O: PAPER q: 

JOGADORES" ''TAB 11;"(1 A 6)" LR] Lg) CLS : PRINT AT 3,13;NS(N) 

130 INPUT NP: LET NP=INT (NP): 190 FOR M=5 TO 27: PRINT 


IF NP<l OR NP>6 THEN GOTO 130 140 FOR BR =1 TOS: FORI=l PAPER O;AT 5,M;” ";AT 19,M;” " 


140 DIM O(NP,12): DIM P(NP,12) TO 12: FOR N 1 TO NP : NEXT M 

: DIM S(NP,5): DIM NS(NP,6): 150 HOME :Y 2: GOSUB 980: GO 200 FOR M=6 TO 18: PRINT 

DIM Q(NP) SUB 190 PAPER O;AT M,5;” ";AT M,27;" " 
150 FOR N=1 TO NP: CLS : PRINT 170 HOME : GOSUB 350: HOME : N : NEXT M 

AT 8,5;" JOGADOR ";(N);".”"'" "TAB EXT N,I 210 GOSUB 240: PAUSE O: GOSUB 
5:"QUAL E SEU NOME 7": INPUT 180 HOME : GOSUB 990: NEXT AR: 430 

W$: IF LEN W$>6 THEN LET W$= END 230 NEXT N: NEXT I: GOSUB 1290 
W5( TO 6) 980 HTAB (19 - LEN (NS(N)) / : NEXT R: STOP 

160 LET NS(N)=Z3( TO 3-(LEN WS 2): VTAB (Y): PRINT NS(N): RETU ae 

)J/2)+WS: NEXT N RN 


= 140 FOR R=1 TO 5:FOR 1I=1 TO 12: 
FOR N=1 TO NP 


10 CLS:X$=CHRS (13) :DIM DS(6,4) 
£0 FOR K=1 TO 6:FOR J=1 TO 3:F0O 
R L=1 TO 3:READ A:DS(K,J)=DS(K, 
J)+CHRS (128+65*A) :NEXT 

30 DS(K,J)=DS (K, J) +CHAS (133) :NE 
XT 


40 DS(K,J) =STRINGS (3,131)+CHRS( 

135) :NEXT 

50 DATA 0,0,0,0,1,0,0,0,0,1,0,0 
[(0,0,0,0,0,1 

60 DATA 1,0,0,0,1,0,0,0,1,1,0,1 
[/0,0,0,1,0,1 

O DATA 12,0,1,0,1,0,1,0,1,1,0,1 
b,0,2,1,0,1 

80 PRINT:PRINT"QUANTOS JOGADORE 

» (1-6) 77; 

90 AS=INKEYS:IF AS<"1" OR AS>"6 
” THEN 90 

100 PRINT AS:NP=VAL (AS) :CLS 

110 FOR N=1 TO NP:PRINT €65,"Jo 

GADOR” ;N: PRINT” QUAL E SEU NOME 
2" : INPUT NS(N) 

120 CLS:NEXT 

130 DIM O(NP,12),P(NP,12),S(NP, 
10) 





O LAÇO-MESTRE 


A estrutura do jogo é bem simples, 
e consiste nestas poucas linhas: 


140 FORR=1TOS:FORI=1TO12:FORN=1 
TONP 
150 CLS:Y=2:GOSUB980:GOSUB190 
































150 CLS:W=6:Y=2:GOSUB 980:GOSUB. 


190 

160 SOUND 50,3:FOR E=1 TO 800:N 
EXT 
170 CLS:GOSUB 350:CLS:NEXT N,1I 
180 CLS:GOSUB 990:NEXT R:END 
9870 PRINT 67*32+W-( (LEN(NS(N)) 
1/2) NS (N) : RETURN 


O laço-mestre compõe-se de três la- 
cos encadeados (um dentro do outro) 
que controlam o jogo. R é o número da 
partida; I, o número de jogadas dentro 
de uma partida é N, o número de joga- 
dores. As rotinas chamadas por esse la- 
ço fazem os dados rolar e apresentam 
os placares parcial e final. Todos os mi- 
cros, menos o Spectrum, chamam uma 
pequena rotina para centralizar os no- 
mes na tela. As rotinas chamadas pelo 
laço-mestre também são subdivididas, 
como veremos a seguir. 





OS DADOS VÃO ROLAR 


A primeira dessas rotinas rola os da- 
dos, exibe-os na tela e chama duas ou- 
tras rotinas. 

Acrescente as linhas que se seguem à 
parte do programa já digitada: 


na 


190 T=1:FORD=1TOS:T(D)=INT(RND( 
-TIME) *6)+1 :NEXT 





200 LOCATEO, T*2+3: PRINT" JOGO" ;T 
GOSUB970:IFT=3 THEN 310 
C=1:FOR D=1 TO 5 

230 LOCATE9+D*4,9:PRINT”?" 

240 AS=INKEYS: IFAS<>"N"ANDAS<>" 
n” ANDAS<>" 8" ANDA$S<>"S" THEN240 
250 IF AS="N"ORAS="n"THENPLAY"O 
3L64CB”:GOTO270 

260 PLAY"O06L64CB": TR(C)=T(D):C= 
C+1 
270 


210 
220 


LOCATEO,9: PRINTCLS:NEXTD 
280 IFC=6THENGOSUB340 : RETURN 
290 FORD=C TO 5:TR(D)=INT(RND(- 
TIME) *6)+1:NEXTD 

300 GoSUB340 

310 T=T+1 

320 IFT<>4THEN200 

330 FORE=1T0700:NEXT: RETURN 

340 FORD=1TOS:T(D)=TR(D) :NEXTD: 


à RETURN 


970 FORD=1TO5S:FORG=1TO4:LOCATED 
4+8,G+4: PRINTDS (T(D),G) ; :NEXTG 
+ D: RETURN 


Lab) [e] 


190 T = 1: FORD = 1 TO 5:T(D) 
= INT ( BND (1) * 6) + 1: NEXT 
200 VUVTAB (T * 2 + 3): PRINT "J 
060 ";T; 

210 GOSUB 970: IF T = 3 THEN 3 
10 

220 CC = 1: FORD = 1 TO 5 

230 HTAB (9 + D * 4): VTAB (9) 
: PRINT “7”; 

240 GET AS: IF AS < > "S” AND 
AS < > "Nº THEN 240 

250 IF AS = "Nº THEN 270 

260 TR(C) = T(D):C = C+1 

270 HTAR (9 + D* 4): VTAB (9) 
+ PRINT ”" *: NEXT D 

280 IF C = 6 THEN GOSUB 340: 
RETURN 

290 FORD = C'TOS:TR(D) = JIN 

T ( RND (1) *-6) + 1: NEXT 

300 GOSUB 340 

340 T=T+1 

320 IF T< > 4 THEN ZOO 

330 FOR E = 1 TO 700: NEXT : BR 
ETURN 

340 FORD = 1 TOS:T(D) = TRID 
3: NEXT : RETURN 

970 FORD = 1 TO 5: HTAB (D * 
d + 8): VTAB (6): PRINT DCS(T(D 
)):: NEXT : RETURN 

240 LET T=1: FOR D=1 TO 5: LET 


T(D)=INT (RND*6)+1: NEXT D 

250 PRINT AT 6+T*3,7;" JOGO ";T 
260 GOSUB 1180 

270 IF T=3 THEN GOTO 390 

280 LET C=1: FOR D=1 TO 5 

290 PRINT AT 7+T*3,16+D*2;"?7" 
300 FOR J=1 TO 50: NEXT J 

310 LET AS=INKEYS: IF AS="" 
THEN GOTO 310 

320 IF AS="N” THEN SOUND .1, 





“10: GOTO 360 
330 IF AS<>"S” THEN GOTO 310 
340 SOUND .1,30 
350 LET R(C)=T(D): LET C=C+1 
360 PRINT AT 7+T*3,16+D*2;" ": 
NEXT D 
370 IF C=6 THEN GOSUB 420: 
LET T=4á: GOTO 400 
380 FOR D=C TO 5: LET R(D)=INT 
(RND*6)+1: NEXT D: GOSUB 420 
390 LET T=T+1 
400 IF T<>4 THEN GOTO 250 
410 RETURN 
420 FOR D=1 TO 5: LET T(D)=R(D 
): NEXT D: RETURN 
1180 FOR D=1 TO 5: PRINT PAPER 
2: INK 6; BRIGHT 1L;AT 6+T*3,16 
+D*2:CHAS (143+T(D)): PAUSE 2: 
SOUND .01,RND*40: NEXT D: RETUR 
N 


140 FOR R=1 TO 5:FOR I=1 TO 12: 

FOR N=1 TO NP 

150 CLS:W=6:Y=2:GOSUB 980:GOSUB 
190 

160 SOUND 50,3:FOR E=1l TO 800:N 

EXT 

170 CLS:GOSUB 350:CLS:NEXT N,I 

180 CLS:GOSUB 990:NEXT R:END 

190 T=1:FOR D=1 TO 5:T(D)=RND(6 
) : NEXT 

200 PRINT €64*T+64,"LANCE:";T; 
210 GOSUB 970:IF T=3 THEN 310 
220 C=1:FOR D=1 TO 5 

230 PRINT 6288, TAB (9+D*4)"?7” 

240 AS=INKEYS:IF AS<>"N” AND AS 

<>"S” THEN 240 

250 IF AS="N” THEN SOUND 10,1:6 

oTo 270 

260 SOUND 100,1:TR(C)=T(D) :C=C+ 

1 

270 NEXT D: PRINT €288 

280 IF C=6 GOSUB 340:RETURN 

290 FOR D=C TO 5:TR(D) =RND(6):N 
EXT D 

300 GOSUB 340 

310 T=T+1 

320 IF T<>4 THEN 200 

330 RETURN 

340 FOR D=1 TO 5:T(D)=TR(D) :NEX 

T D:RETURN 

970 FOR D=1 TO 5:FOR G=1 TO 4:P 

RINT €136+0*32+D*4, DS(T(D),G);: 

NEXT G,D:RETURN 

9870 PRINT €7*32+W- ( (LEN(NS(N)) 
3/2), NS (N) : RETURN 


No primeiro lançamento, utilizam-se 
os cinco dados. O resultado é exibido na 
tela por meio da rotina da linha 970 
(1180, no Spectrum). O jogador escolhe 
então quais são os dados “bons” e quais 
são os ““ruins””, indicando os primeiros 
com um S e os segundos com um N. Ele 
terá mais duas chances de lançar os da- 
dos ruins, devendo teclar S(im) para os 
dados que quer “'segurar”” e N(ão) para 
os demais. 








RRRRERBRRR o o PRP 
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Os números dos cinco dados iniciais 
são armazenados na matriz T( ). Depois 
do primeiro lançamento, os dados que 
“seguramos”” são guardados tempora- 
riamente na matriz R( ), que é preenchi- 
da com outros valores randômicos até 
ficar com cinco números. Esses valores 
são levados de volta para a matriz T() 
por meio da rotina da linha 340 (420, no 
Spectrum). Os resultados são exibidos 
na tela mais uma vez € O processo se re- 
pete no próximo lançamento, 


OPLACAR 


A maior parte da rotina dedica-se aos 
cálculos do placar e à verificação de en- 
tradas. 


o 


350 CLS 
360 Y7=0:GCOSUB98B0: PRINTSTRINGS (3 
0,205);" PLACAR” 


370 PRINTCUNS.........:"X$ DOIS 
dale qo é PAO DRM se 14:& ERRO ne bd 
UAIROB. ....º! ASTCINCOS...... ud 
dade! PD 

380 PRINT"4 IGUAIS....: "RS"CASA 
CHEIA. .:"X9"CURTO.......:"HSL 
ONGO. ...... CEB LERDO ore a Ea 
SIAICO: usos tras 

390 PRINTOTOTAL, .ceses it; 


400 GOSUB460 

410 GOSUB490:GOSUB460 

420 LOCATE22,5:PRINT"<qualquer 
teclaz” 

440 AS=INKEYS: IFAS=""THEN440 





450 RETURN 

460 FORD=1TOl2Z:IFP(N,D)=1 THENL 
OCATEL6, 1+D:PRINT"X"; 

470 IFO(N,D)<>OTHENLOCATEIS, 1+D 
* PRINTO(N,D); 

480 NEXTD:C=0:FORD=1TO12Z:C=C+0( 
N,D) :NEXT:LOCATE1S,15:PRINTC:;:R 
ETURN 

490 LOCATE2,20: PRINT"TEMPO"R:;:L 
OCATEl,21:PRINT"JOGADA"I: 

500 LOCATEO,17:PRINT"RESULTADO 
510 FORD=1TOS:FORG=1TO4:LOCATES 
+4*D,15+G: PRINTDS(T(D),6G):; :NEXT 
G,D 

520 LOCATEJ6,20: PRINT"ESCOLHA O 
GRUPO"; 

530 A=1 

540 LOCATE13,1+A:PRINTCHRS (60); 
550 B5=INKEYS: IFBS<>" "ANDBS<>C 
HRS (30) ANDBS<>CHAS (31) THEN5S5O 
560 IFBS=" "THEN620 

570 LOCATEL3,1+A:PRINT” "; 

580 IFBS=CHAS (30) ANDA>1THENA=A- 
1 
590 

+l 
600 


IFB$=CHR$ (31) ANDA<SIZTHENA=A 


PLAY"O6GA” 

610 GoT0540 

620 LOCATE13, 1+A: PRINT” 
N,A)<>OTHEN95O0 

630 IFA>6THEN700 

640 C=0 

650 FORD=1TOS:IFT(D)=A THENC=C+ 
1 
660 
670 
680 


"72 IFP( 


NEXTD 

O(N,A)=C*HA 

P(N,A)=1 

690 RETURN 

700 IFA=11THENFORD=1TOS:O(N,11) 
=O(N, 11)+T(D) :NEXT:P(N,11)=1:RE 
TURN 

710 FORD=1TOS:D(D)=0:NEXT:B=0:F 
ORE=1T06:€=0:FORD=1ITOS:IFT(D)=E 
THENC=C+1 

20 NEXTD: IFC<>0THENB=B+1 

730 NEXTE 

740 G=1:FORF=1TO6:GOSUBl1140:IFC 

<20THEND (G) =F:6=G+1 

750 NEXTF 

760 P(N,A)=1:A=A-6:0NA GOTO770, 

B10,830,870,960,890 

770 IFB>2THEN900:IFB=1GOSUB1160 
:0(N,7)=C*4:RETURN 

780 F=1 

790 GOSUB1140:F=F+1:IFC<>4ANDF< 

2/THEN/790ELSEIFC<4THEN900 

800 O(N,7)=4*(F-1):RETURN 

BlO IFB<>2THEN900ELSEF=D(1):G08 

UB1l140: IFC=3THENS20ELSEF=D(2):G 

OSUBl1l140:TFC<>3THEN900 

B20 FORD=1TOS:O(N,B)=O(N,B)+TID 

) : NEXT: RETURN 

830 IFB<>4THENB5SOELSECGOSUBI160: 

IFC<>18BANDC<>10ANDC<>14 OR(C=ld 

ANDD (4) =6) THEN900 

840 0(N,9)=15:RETURN 

850 IFB<>5THEN900ELSEGOSUB1160: 

IFC<>20ANDC<>15ANDC<>16ANDC<>19 

THEN900 

B60 GOTOB40 

870 IFB<>5THEN900ELSEGOSUB1160: 

IFC<>20ANDC<>15THEN900 








880 0O(N,10)=30:RETURN 

890 IFB<>1ITHEN900ELSEO(N,12)=50 
: PLAY"GFEG” : FORE=1T0700:NEXT:RET 
URN 

900 PLAY"03GGG” : LOCATE22,5:PRIN 
T"ilegal. ELIMINA?"; 

910 AS=INKEYS: IFAS<>"S"ANDAS<>" 
S"ANDAS<>"N"ANDAS<>"n"THEN910 
920 LOCATE22,5: PRINTSTRINGS (17, 
2): 

930 IFAS="N"O0RAS="n"THENP(N,A+6 
)=0:6G0T0530 

940 P(N,A+6)=1:RETURN 

950 PLAY"O3CFD”": LOCATE22,5:PRIN 
T"GRUPO OCUPADO”; : FORE=1T0700:N 
EXT:LOCATE22,5: PRINTSTRINGS (14, 
32); :60T0530 

960 RETURN 

1140 C=0:FORD=1TOS:IFT(D)=F THE 
NC=C+1 

1150 NEXTD: RETURN 

1160 €C=0: FORD=1TOB:C=C+D(D) :NEX 
TD: RETURN 


Cato 


350 HOME 
360 Y = 1: GOSUB 980: INVERSE : 
PRINT ">>>>>>>>>>>>>>>2>>5>5>5>5>5> 


2>2> PLACAR <<<” 


370 NORMAL : PRINT : FORT = 1 
TC 12: PRINT AS(T): NEXT 

380 PRINT : INVERSE PRINT "T 
DTML ee "- NORMAL 

400 GOSUB 460 

410 GOSUB 490: GOSUB 460 

420 HTAB (22): VTAB (8): PRINT 
"<QUALQUER TECLA>"; 

440 GET AS: IF AS = "”" THEN dg 
O 

450 RETURN 

460 FORD =1TOIlZ2: IF P(N,D) 
= 1 THEN HTAB (15): VTAB (3 + 
D): PRINT "X”: 

470 IF O(N,D) < > O THEN HTA 

B (15): VTAB (3 + D): PRINT O(N 
1D) ; 





FOR D = 1 TO 
NEXT 
(17): 


480 NEXT D:C = O: 
12:0C = €C + O(N,D): 
485 HTAB (15): VTAB 

T C: RETURN 

490 VTAB (22): PRINT TAB( 3); 
"TEMPO" ;A: PRINT TAB( 1);" JOGA 


PRIN 


DA ";1 
500 VTAB (19): PRINT "RESULTAD 
O» ": 


510 FORD = 1 TO 5: VTAB (19): 
HTAB (9 + 4 * D): PRINT DCS(TÍ 
D));: NEXT D 

520 HTAB (16): VTAB (21): PRIN 
T "ESCOLHA O GRUPO”; 

530 A = 1 

540 HTAB (13): VTAB (3 + A): P 

RINT CHARS (60); 

550 GET BS: IF BS < > CHRS ( 
81) AND BS < > CHARS (90) AND 
BS < > cHAS (32) THEN 550 


560 IF B$ = CHR$ (32) THEN 62 
0 

570 HTAB (13): VTAR (3 + A): P 

RINT ”" *; 

580 IF BS = CHRS (81) AND A 2 
1 THEN À = A -1 

590 IF BS = CHR$ (90) AND À < 


12 THEN À = À + 
600 PRINT CHARS 
610 GoTO 540 
620 HTAB (13): VTAB (3 + A): P 


1 
(7) 


RINT ”" ";: IF P(N,A) < > 0 THE 

N 950 

630 IF A > 6 THEN 700 

640 € = 0 

650 FORD = 1 TO 5: IF (T(D) = 
A) THEN C = C+1 

660 NEXT D 

670 O(N,A) = C* A 

680 P(N,A) = 1 

690 RETURN 

700 IF À = 11 THEN FORD =1 
TO S:O(N,11) = O(N,11) + T(D): 
NEXT :P(N,11) = 1: RETURN 

710 FORD = 1 TOS:D(D) = O: N 


FOR E = 1 TO 6:€ = 
JF T(D) = E 


EXT :B = O: 
0: FOR D = 1 TO 5: 
THEN C = C+ 1 

720 NEXT D: IF C< > 0 THEN B 


=B+1 
730 NEXT E 
740 G-= 1: FOR F = 1 TO 6: GOSU 
B 1140: IF € < > O THEN D(G) = 
F:G * G+1 
750 NEXT F-- 
760 P(N,A) = 1:A = A - 6: ON À 


GOTO 770,810,830,870,960,890 


770 IF B > 2 THEN 900: IF BE = 
1 GOSUB 1160:0(N,7) = €C * 4: RE 
TURN 

780 F = À 

790 GOSUB 1140:F = F + 1: IF € 


< > 4 ANDF< > 7 THEN 790 


795 IF C< 4 THEN 900 

800 0(N,7) = 4 * (F - 1): RETUR 
N 

810 IF B< > 2 THEN 900 

812 F = D(1): GOSUB 1140: IF C 
= 3 THEN 820 

814 F = D(2): GOSUB 1140: IF € 


< > 3 THEN 900 
820 FORD = 1 TO 5:0(N,8B) 
N,B) + T(D): NEXT 


= O( 
: RETURN 


830 IF B< > 4 THEN 850 
835 GOSUB 1160: IF C< > 18 A 
ND C < > 10 AND C* > 14 OR « 


C = 14 AND D(4) = 6) THEN 900 
840 O(N,9) = 15: RETURN 

850 IF B< > 5 THEN 900 

255 GOSUB 1160: IF C< > 20 À 
ND C < > 15 AND C < > 16 AND 
Cc < > 19 THEN 900 

B60 coTo 840 

870 IF B< > 5 THEN 900 

875 GOSUB 1160: IF C< > 20 A 
ND C < > 15 THEN 900 

BB0 O(N,10) = 30: RETURN 


B90 IF B< > 1 THEN 900 

895 O(N,12) = 50: PRINT CHAS ( 
7): FOR E = 1 TO 700: NEXT : RE 

TURN 

900 PRINT CHARS (7); CHRS (7): 
HTAB (22): VTAB (5): PRINT “al 
egal. ELIMINA?”; 

910 GET AS: IF AS < > "58" AND 
AS < > "Nº THEN 910 

920 HTAB (22): VTAB (5): PRINT 
CLS; 

930 IF AS = "N” THEN P(N,A + 6 
) = 0: GoTo 530 


940 P(N,A + 6) = 1: RETURN 


950 PRINT CHA$ (7); CHR$ (7): 
HTAB (22): VTAB (5): PRINT "GR 

UPO OCUPADO” ;: FOR E = 1 TO 700 
: NEXT 

955 HTAB (22): VTAB (5): PRINT 
CLS;: GOTO 530 

960 RETURN 

1140 C= 0: FORD= 1 TOS: IF 

T(D) = F THEN C=C+1 

1150 NEXT D: RETURN 

1160 € = 0: FORD = 1 TO B:C = 

Cc + D(D): NEXT D: RETURN 


430 BORDER O: PAPER O: INK 6: 
CLS 





“440 PLOT 4,4: DRAW 0,167: DRAW 
124,0: DRAW 0,-167: DRAW -124, 
E) 

450 PRINT INK 5S;AT 1,5;NS(N); 
INK 4:;AT 2,1;"** PLACAR **" 
460 RESTORE 1280: FOR M=4 TO 
17: READ AS: PRINT AT M,1L;A3; 
OS( TO 11-LEN AS);: IF M<>16 
THEN PRINT *:* 

470 NEXT M 

4aBO GOSUB 530 

490 GOSUB 560: GOSUB 530 

500 “PRINT FLASH 1;AT 20,18;"Q 
UALQUER TECLA";AT 21,18;"P/ CO 
NTINUAR  * 


510 LET AS=INKEYS: IF A$S="" 
THEN GOTO 510 

520 RETURN 

530 FOR D=1 TO 12: IF P(N,D)=1 


THEN PRINT AT 3+D,13;"X" 

540 IF O(N,D)<>0 THEN PRINT 
AT 3+D,13;0(N,D) 

550 NEXT D: LET C=0: FOR D=1 
TO 12: LET C=C+O(N,D): NEXT D: 
PRINT AT 17,13;€C: RETURN 

560 PRINT AT 8,18;"TEMPO ";R; 
AT 9,18;"SECAO ";1I 

570 PRINT AT 2,18;"RESULTADO= 
". LET T=-1:; GOSUB 1180 

580 PRINT AT 5,18;"ESCOLHA O G 
RUPO" 

590 LET A=4 

600 PRINT AT A,15;CHRS 150 


610 LET BS=INKEYS: IF BS$="" 
THEN GOTO 610 
620 IF BS=" " THEN LET A=A-3: 


GOTO 710 

630 IF B8="kK” THEN GOTO 650 
640 IF BS<>"M” THEN GOTO 610 
650 PRINT AT A,15;”" * 

660 IF B$="K” AND A=4 THEN 
GoTo 600 

670 IF BS="M” AND A=15 THEN 
GoTo 600 

680 IF BS="M” THEN LET A=A+1 
690 IF BS="K” THEN LET A=A-1 
700 SOUND .01,5: GOTO 600 
710 PRINT AT A+3,15;" ": 
N,A)j<>O THEN GOTO 1240 
720 IF A>6 THEN GOTO 780 
730 LET €=0 

740 FOR D=1 TO 5: 
THEN LET C=C+] 
7h0 NEXT D 

760 LET O(N,A)=C*A 
770 LET P(N,A)=1: RETURN 

780 IF A=11 THEN FOR D=1 TO 5 
- LET O(N,11)=0(N,11)+T(D): 
NEXT D: LET P(N,11)=1: RETURN 
790 FOR D=1 TO 5: LET D(D)=0: 
NEXT D: LET B=0: FOR E=1l TO 6: 
LET C=0: FOR D=1l TO 5: IF T(D) 
=E THEN LET C=C+l 


TF Ph 


IF T(D)=A 


800 NEXT D: IF C<>0 THEN LET 
B=B+1 

810 NEXT E 

820 LET G=1: FOR F=1 TO 6: 
GOSUB 1250: IF C<>0 THEN LET 
D(G)=F: LET G=G+ 

830 NEXT F 


840 LET P(N,A)=1: IF A=7 THEN 
Goto 950 
850 IF A=8 THEN GOTO 1010 











IF A=9 THEN GOTO 1050 
IF A=10 THEN GOTO 1120 
IF A=12 THEN GOTO 1160 
950 IF B>2 THEN GOTO 1190 
960 IF B=l THEN GOSUB 1270: 
LET O(N,7)=C: RETURN 

970 LET F=l 

980 GOSUB 1250: 
C<>4 AND F<>7 THEN GOTO 980 


870 
890 


990 IF C<4 THEN GOTO 1190 
1000 LET O(N,7)=4*(F-1): RETURN 
1010 IF B<>2 THEN GOTO 1190 
1020 LET F=D(1l): GOSUB 1250: IF 

C=3 THEN GOTO 1040 
1030 LET F=D(2): GOSUB 1250: IF 


C<>3 THEN GOTO 1190 

1040 LET 0(N,8)=0: FOR G=1 To 5 
LET O(N,8)=0O(N,B)+T(G): NEXT 

G: RETURN 

1050 IF B<>4 THEN GOTO 1080 

1060 GOSUB 1270: IF C<>18 AND C 

<>10 AND C<>l4 OR (C=14 AND D(4 

)=6) THEN GOTO 1190 

1070 LET 0(N,9)=15: RETURN 

1080 IF B<>5 THEN GOTO 1190 

1090 GOSUB 1270: IF C=15 OR C=1 

6 OR C=19 THEN GOTO 1070 


1100 IF C<>20 THEN GOTO 1190 
1110 GOTO 1070 

1120 IF B<>5 THEN GOTO 1190 
1130 GOSUB 1270: IF C=15 OR C=2 


O THEN GOTO 1150 

1140 GOTO 1190 

1150 LET 0(N,10)=30: RETURN 
1160 IF B<>1 THEN GOTO 1190 
1170 LET 0(N,12)=50: RETUBN 
1190 SOUND .5,5: PRINT AT 20,18 
;" ILEGAL !";AT 21,18;"ELIMINA ? 


1200 LET AS=INKEYS: 
EN GOTO 1200 
1210 IF AS="N" 
0,18;" 


IF AS="" TH 


THEN PRINT AT 2 
CAT 21,18)* 

": LET P(N,A)=0: GOTO 590 
1220 IF AS<>"S” THEN GOTO 1200 
1230 LET P(N,A)=1: RETURN 
1240 SOUND .5,5: PRINT AT 20,18 
| "GRUPO OCUPADO": FOR H=1 TO 30 
O: NEXT H: PRINT AT 20,18;" 

"1 GOTO 590 

1250 LET C=0: FOR D=1 TO 5: IF 
T(D)=F THEN LET C=C+1 
1260 NEXT D: RETURN 
1270 LET C=0: FOR D=1 TO B; LET 
C=C+D(D): NEXT D: RETURN 
1280 DATA "UNS”","DOIS”","TRES"," 
QUATROS”,"CINCOS","SEIS”","IGUAI 
8" ,"CASA CHEIA”,"CURTO”,"LONGO" 
"MISTO" "YATCH”, rm af 
“TOTAL” 


350 CLS 
360 W=6:Y=0:GOSUB 980:PRINT"*** 
XSCORENX AX 


370 PRINTCUNS.........:"XS"DOIS 
sans as AS TRES ss sdsasTTAST O 
UATROS..... TAS CINCOB.. «sc! H 
BOBESD. cascos?" 










LET F=F+]: IF 


























380 PRINT"4 OF A KIND.:"XS"FULL 
HOUESE..;"XS"SHORT RUN... :"XS$” 


LONG RUN....:"XS"SHORT RUN...:" 
XS$"LONG RUN....:"XS"CHOICE..... 
E AS JATUH. asus TAS 

J90 PRINTPTOTAL.......:"; 


400 GOSUB 460 

410 GOSUB 490:GOSUB 460 

420 PRINT €466,"qualquer tecla” 
: : PRINT €6498,"para continuar”: 
430 SOUND 60,1 

440 AS=INKEYS:IF AS="" THEN 440 
450 RETURN 

460 FOR D=l TO 12:IF P(N,D)=1 T 
HEN PRINT €45+D*32,"X"; 

470 IF O(N,D)<>0 THEN PRINT e4s5 
+D*32,0(N,D); 

480 NEXT D:C=0:FOR D=1 TO 12:C= 
C+O (N,D) :NEXT:PRINT €493,C;:RET 
URN 

490 PRINT €53,"ROUND"A;:PRINT é 
B4,"SECAO"I; 

500 PRINT €115,"GRUPO FINAL="; 
510 FOR D=1 TO 5:FOR G=1l TO 4:P 
RINT 8111+6*32-(D>3)*118+4*D,DsS 
(T(D),6G) ;:NEXT G,D 

520 PRINT 6403,"SELECT GROUP” ; 
530 Asl 

540 PRINT 649+32xA, CHRS (95); 
550 B$=INKEYS:IF BS<>” " AND BS 
<>"*" AND BS<>CHARS (10) THEN 550 
560 IF B$=" " THEN 620 

570 PRINT G49+32%A," "; 

580 IF B5$=""" AND A>l THEN A=A- 
1 

590 IF BS=CHRS (10) AND A<12 THE 
N A=A+1 

600 SOUND 200,1 

610 GOTO 540 

620 PRINT €49+32*%A,” ":-IF PN, 
AjJ<>0 THEN 950 

630 IF A>6 THEN 700 

640 C=0 


650 FOR D=1 TO 5:IF T(D)=A THEN 


C=C+1 







660 NEXTD 

670 O(N,A)=CXA 

6B0 P(N,A)=1 

690 RETURN 

700 IF A=11 THEN FOR D=1 TO 5:0 
(N,11)=0(N,11)+T(D) :NEXT:P(N,11 

)=1:RETURN 

710 FOR D=1 TO 5:D(D)=0:NEXT:B= 

O:FOR E=1 TO 6:C=0:FOR D=1 TO 5 
“IF T(D)=E THEN C=C+1 

720 NEXT D:IF C<>0 THEN B=B+1 

730 NEXT E 

740 G=1:FOR F=1 TO 6:GOSUB 1140 

:IF €C<>0 THEN D(G) =F:G=G+1 

750 NEXT F 

760 P(N,A)=1:A=A-6:0N A GOTO 77 

0,810,830,870,960,890 

770 IF B>2 THEN 900 ELSE IF B=1 
GOSUB 1160:0(N,7)=C*4:RETUARN 

780 F=1 

790 GOSUB 1140:F=F+l:IF C<>4 AN 

D F<>7 THEN 790 ELSE IF C<4 THE 

N 900 

800 O(N,7)=4*(F-1):RETURN 

810 IF B<>2 THEN 900 ELSE F=D(l1 
) :GOSUB 1140:IF C=3 THEN 820 EL 
SE F=D(2):GOSUB 1140:IF C<5>3 TH 
EN 900 

T (D) :NEXT: RETURN 

830 IF B<>4á THEN 850 ELSE GOSUB 
1160:IF C<>18 AND C<>10 AND C< 
214 OR (C=14 AND D(4)=6) THEN 9 

00 

840 0(N,9)=15:RETURN 

850 IF B<>5 THEN 900 ELSE GOSUB 
1160:1IF C<>20 AND C<>15 AND C< 

>16 AND C<>19 THEN 900 

B60 GOTO B40 

B70 IF B<>5 THEN 900 ELSE GOSUB 
1160:1IF C<>20 AND C<>15 THEN 9 

DO 

880 0(N,10)=30:RETURN 

890 IF 8<>1 THEN 900 ELSE O(N,1 

2)=50: SOUND 5,8:FOR E=1 TO 700: 

NEXT E:RETURN 

900 SOUND 20,1:PRINT €432,"ileg 

al. PERDE?”"; 

910 AS=INKEY$S:IF AS<>"S” AND AS 

<>"N”" THEN 910 

920 PRINT 6432," 


930 IF AS$="N” THEN P(N,A+6) =0:G 
OTO 530 

940 P(N,A+6)=1:RETUAN 

950 SOUND 5,1:PRINT 6433," SECAO 
PREENCHIDA" ;:FOR E=1 TO 700:NE 
XT: PRINT 6433," 

*::GOTO 530 

960 RETURN 

1140 C=0:FOR D=1 TO 5:IF T(D)=F 
THEN C=C+1 

1150 NEXT D:RETURN 

1160 C=0:FOR D=1 TO B:C=C+D(D): 

NEXT D: RETURN 


IMPRESSÃO DO ESQUELETO 





A primeira seção dessa rotina — que 
vai até a linha 520 no Spectrum e linha 
450 nos outros micros — mostra na te- 












la o esqueleto do placar (nomes dos gru- 
pos e do jogador) e chama duas outras 
rotinas para preencher os grupos e re- 
ceber a última entrada. 

A rotina constituída pelas três linhas 
seguintes preenche o esqueleto com o 
placar anterior e fornece a soma dos to- 
tais. Depois dela encontra-se uma roti- 
na maior, incumbida de receber e ana- 
lisar as entradas. 

As primeiras linhas dessa rotina apre- 
sentam na tela informações sobre o nú- 
mero da partida e da jogada e, o que é 
mais importante, mostram a combina- 
ção final obtida. As linhas seguintes, 
além de identificar a tecla que está sen- 
do pressionada, movem o cursor para 
cima e para baixo no esqueleto. Para a 
movimentação do cursor, o Spectrum 
usa as teclas Me K; o MSX e o TR5- 
Color, as setas, e o Apple e o TK-2000, 
as teclas Q e Z. 

Quando se pressiona a barra de es- 
paço, o programa interpreta que o gru- 
po apontado pelo cursor foi escolhido. 
A posição do cursor é armazenada na 
variável A, onde A=1 corresponde à 
posição do grupo dos UM, A=2 equi- 
vale à posição do grupo dos DOIS e as- 
sim por diante até A= 11, que corres- 
ponde à posição do YATCH. O valor 
de A é usado pelo restante da rotina pa- 
ra calcular a pontuação do placar. 

Uma outra variável importante é a 
variável B, que contém o número de da- 
dos diferentes entre si: B = 2 (dois tipos 
de valores), por exemplo, representaria 
uma FULL HOUSE e B=S5 (cinco tipos 
de valores), um LONGO. 

Portanto, dependendo do valor de A, 
rotinas diferentes são chamadas para ve- 
rificar se a combinação dos dados real- 
mente corresponde ao grupo escolhido. 
Se corresponder, o placar é calculado e 
apresentado na tela. Caso contrário, a 
mensagem “ILEGAL” é exibida. O Jo- 
gador decide, então — com um S ou um 
N —, se o grupo deve ser eliminado. O 
computador verifica também quais gru- 
pos já foram usados. 


RESULTADO FINAL | 





Esta última seção simplesmente apre- 
senta na tela o placar final, com os pon- 
tos dos jogadores em cada partida. O 
número da partida é exibido no topo do 
placar final e os nomes dos jogadores 
mais abaixo, à esquerda. 


io 


990 CLS: PRINT">>>>>>2>>> 
AR FINAL <<ccd<<d< <<” 


PLAC 





1000 LOCATEO,4:FORD=1ITONP: PRINT 
NS (D) :NEXT 

1020 FORD=1TONP 

1030 C=0:FORE=1TO12:€C=C+O(D, E): 
NEXT:S(D,R)=C:NEXTD 

1040 FORD=1TO5:LOCATE3+D*4,2Z:PR 
INTD; :NEXT 

1050 PRINT” TOTAL" 

1060 FORD=1TONP 

1070 FORE=1TOR 

1080 LOCATE3+E*4, 3+D: PRINTS (D,E 
); :“NEXTE,D 

1090 FORD=ITONP:C=0:FORE=ITOR:C 
=(+S (D, E) :NEXTE: LOCATE2Z6, 3+D: PR 
INTC; :NEXTD 

1100 LOCATE2,19:PRINT"< qualque 
r tecla para outra rodada >” 
1110 AS=INKEYS: IFAS=""THENL11IO 
1120 FORE=1TONP:FORD=1TOLZ:0(E, 
D)=0:P(E,D)=0:NEXTD,E 

1130 RETURN 


[abc] 


990 HOME INVERSE : PRINT "2> 
>>>>>>>>> PLACAR FINAL <<<<<< 
<<<<<": NORMAL 


1000 VTAB (5): FOR D = 1 TO NP 
- PRINT LEFTS (N$(D),10): NEXT 


1020 FORD = 1 TONP 

1030 € = 0: FOR E = 1 TO 12:€ = 
C + O(D,E): NEXT :S(D,BR) = €: 

NEXT D 

1040 FORD = 1 TOS: HTAB (9 + 
D * 4): VTAB (3): PRINT D;: NE 

XT 

1050 PRINT * TOTAL” 

1060 FORD = 1 TO NP 

1070 FOR E = 1 TOR 

1080 HTAB (9 + E * 4): VTAB (4 
+ D): PRINT S(D,E);: NEXT E,D 
1090 FORD = 1 TONP:€C = O: FO 

RE = 1 TOR:;C=CcC+õgS(D,E): NE 

XT E: HTAB (33): VTAB (4 + D): 
PRINT C;: NEXT D 

1100 HTAB (2): VTAB (22): PRIN 


T "< QUALQUER TECLA PARA OUTRA 
RODADA >"; 


1110 GET AS: IF AS = "" THEN 1 
110 

1120 FOR E = 1 TONP: FORD = 
1 TO 12:0(E,D) = O:P(E,D) = O: 
NEXT D,E 

1130 RETURN 

1290 BORDER 7: PAPER 7: INK 4: 
CLS 

1300 PRINT "ARARAS AAAAPLACAR FI 
NALHHR MA A 


1310 PRINT AT 7,0: FOR D=1 TON 
P. PRINT N$(D);" :”""": NEXT D 
1320 PRINT INK 1;AT 3,0;" JOGAD 
OR”; INK Z;AT 3,13;"T EMP O” 
1330 PRINT AT 5,12;: FOR D=1 TO 
5: PRINT INK Z;TAB (4+D*4);D; 

NEXT D: PRINT INK 0;” TOTE 
1340 FOR D=1 TO NP 


1360 LET C=0: FOR E=1l TO 12: LE 





Dn / 
= A r AU 
P/N 


T C=C+O(D,E): NEXT E: LET S(D,R 
)J=C:, NEXT D 
1370 FOR D=1 TO NP: FOR E=1 TO 


R 


1380 PRINT INK 4;AT 6+D*2,4+E* 
4:S(D,E): NEXT E: NEXT D 

1390 FOR D=1 TO NP: LET C=0: FO 
AR E=l TO AR: LET C=C+S(D,E): NEX 


T E: PRINT AT 6+D*2,28;C: NEXT 
D 
1400 PRINT 41; INVERSE 1; INK O 
-“” QUALQUER TECLA PARA CONTINUA 


R 

1410 LET AS=INKEYS: IF AS="" TH 
EN GOTO 1410 

1420 FOR E=1l TO NP: FOR D=1 TO 
12: LET O(E,D)=0: LET P(E,D)=0: 
NEXT D: NEXT E 

1430 RETURN 


990 CLS:PHINT"****xxTABELA DE PO 
NTOS**AHH" 

1000 PRINT €128:FOR D=1 TO NP:P 
RINT N$(D) :NEXT 

1010 PRINT €675,"R O UN D* 

1020 FOR D=1 TO NP 

1030 C=0:FOR E=1 TO 12:C=C+O(D, 
E) :NEXT:S(D,BR)=2:NEXT D 

1040 FOR D=1 TO 5:PRINT €98+D*4 
| D; :NEXT 

1050 PRINT” TOTAL” 

1060 FOR D=1 TO NP 

1070 FOR E=1 TO R 

1080 PRINT 6129+D*32+E*4,5S(D,E) 
“:*NEXT E,D 

1090 FOR D=1 TO NP:C=0:FOR E=l 
TO R:C=C+S(D,E) :NEXT E:PRINT €1 
53+D*32,C;:NEXT D 

1100 PRINT 6448,” QUALQUER TEC 
LA PARA PROXIMA JOGADA.” ; 
1110 AS=INKEYS:TE AS="" THEN 11 
10 

1120 FOR E=1l TO NP:FOR D=1 TO 1 
Z:0(E,D)=0:P(E,D)=0:NEXT D,E 
1130 RETURN 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 
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NnaENO PRÓXIMO NÚMERONHEEEHHII 


CÓDIGO DE MÁQUINA 


Atice as cobras: a vida de Willie vai ficar bem complicada, mas Avalanche ganhará muita emoção. 


PROGRAMAÇÃO BASIC 


Sem o sistema operacional, seria muito difícil trabalhar com o computador. 
Conheça esse importante componente do seu micro. 


PROGRAMAÇÃO BASIC 


Aprenda a lidar com arquivos. A manipulação dessa ferramenta é fundamental para determinadas operações. 


APLICAÇÕES 


Você quer comprar um monitor? Avalie a qualidade de sua imagem com 
nosso programa para teste de vídeo. 


PROGRAMAÇÃO BASIC 


O comando INPUT apresenta algumas limitações. 
Substitua-o por uma versátil rotina. 











